PRINT ALL OPEN DOCUMENTS

[RUUD VAN DEURSEN]

Is it possible to print all open documents by clicking
once on the print-button.

By a word function / macro.....

 

[Helmut Weber]

HI RUUD,

Is it possible to print all open documents by clicking
once on the print-button.

NO!!! ABSOLUTELY IMPOSSIBLE!!!
UNLESS YOU REDEFINE THE COMMAND BEHIND THE BUTTON
TO PRINT ALL OPEN DOCUMENTS.

AND DON'T SHOUT!!!

GREETINGS FROM BAVARIA, GERMANY !!!

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

 

[G.G.Yagoda]

Wouldn't this simple macro print all open documents?

Sub PrintOpenDocs()
Dim W As Window
For Each W In Windows
W.Document.PrintOut
Next
End Sub

 

[Helmut Weber]

Hi G.G.,

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

Wouldn't this simple macro print all open documents?

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/

 

[Nelson C via OfficeKB.com]

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

 

[Nelson C via OfficeKB.com]

Windows allows to print >>>without<<< opening several documents.
Use Windows Explorer to right-click and select Print.
This is still very time consuming when documents reside in different
folders, so I can see why you may need a "press once, print all" solution.
I could use one myself...