Code to print all files in a folder (to default printer)

Searched, didn't find this here, so...

I need Excel macro code that will print all files in a folder in a specified path (will be all pdf's, but if flexible to simply print them all no matter what extension they may be, that'd be great).

I don't need (don't want) to open the files, just simply dump every file in a folder on the network to the default printer as though they had individually been opened and printed one at a time.

Found and tried the following at MS but it fails (old unsupported version, it seems):

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

' The path to obtain the files.
sMyDir = "C:\Sales Summary\Print\"
sDocName = Dir(sMyDir & "*.pdf")

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

It fails on the 'application.printout' line - "Object doesn't support this property or method".

Help?

Thanks!

Hello jwhitwell,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Application.PrintOut is a method in Word, not Excel. Try running the macro in Word.