Hi G.G.,

don't let me be misunderstood,
of course you are right in general,

but not by clicking once on the print button.

By the way, if you got two windows containing then same document,
your code might print the same document twice.

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

This is a very useful routine. I can use it. Thanks.
Can I be so rude as to ask a little more on this.

I have 30 .docs residing in different folders.
The root folder name is C:\root\
The subfolders and files have unique (different) user names, such as:
C:\root\abuch3\letter1_0001.doc
C:\root\abuch3\letter2_0002.doc
C:\root\ajutr2\letter1_00301.doc
C:\root\arpoot1\letter1_0222.doc

Note that sometimes I have more than one doc per folder.
Is there a way to create a macro that recursively opens the documents from
the root folder, prints them, then closes them without saving any changes?
I can't figure out the wildcard on a folder and the wildcard on a file name.
I am trying this (not working) but need Word to change folder for me (go up
one level, then open the next available folder in the list):

Sub PrintFilesCurrentDir()
' PrintFilesCurrentDir Macro
'
Dim strFile As String
strFile = Dir(".\*.doc")
Do Until strFile = ""
  Debug.Print strFile
  strFile = Dir
Loop
End Sub