Printing all files in a folder

[Jana]

How/where would I type this macro to print all the files
in a given folder? The pathname is
C:\WINDOWS\Desktop\Training

Thank you!

Sub ListDocNamesInFolder()
Dim sMyDir As String
Dim sDocName As String

' The path to obtain the files.
sMyDir = "C:\My Documents\"
sDocName = Dir(sMyDir & "*.DOC")

While sDocName <> ""
' Print the file.
Application.PrintOut FileName: = sDocName
' Get next file name.
sDocName = Dir()
Wend
End Sub

 

[Suzanne S. Barnhill]

See http://www.gmayor.dsl.pipex.com/installing_macro.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Jezebel]

Easier to use Windows Explorer: select the files, right-click, select print.