Solved: Print Open Files

[Anne Troy]

Could a macro be written to print all the currently open Word files?

[TonyJollans]

Something like ..

For each d in Documents
d.printout
next

??

[Anne Troy]

Sweeeeeeeeeet.

[Anne Troy]

I ended up with this. Is it correct?

Option Explicit

Sub PrintAll()

Dim d As Document

On Error Exit Sub
For Each d In Documents
d.PrintOut
Next

End Sub

[TonyJollans]

Looks good. Sorry about the sloppy code :)

[Anne Troy]

No problem at all, Tony. I just want to make sure.
Do ya want to go ahead and add it to the kb?

:D

[TonyJollans]

Sure! Just like that? No clever stuff? Consider it done.
:)

[lucas]

Ann,

I had trouble with the error handler you used when I tried it in Word 2000. The following worked in my old version of Word.


Option Explicit

Sub PrintAll()
Dim d As Document
On Error GoTo ErrorHandler
For Each d In Documents
'uncomment the line that says d.PrintOut to actually print
'and comment or delete the line that says d.PrintPreview
'd.PrintOut
d.PrintPreview
Next

ErrorHandler:
Resume Next
End Sub

It's a good idea, thanks for it.

[Anne Troy]

Thanks, Steve!