How can I print out 20 individual Word documents at once?

I need to print out 20 individual Word documents. I don't want to open each up and click Print.

Can I somehow print all at once?

In windows you can select multiple files right click and choose print and it will print all that you selected

however it with my testing it only works with up to 15 documents at a time (I guess it is to prevent an accidental catastrophe by printing the wrong folder.)

I'm thinking that this is more than just a one time need (otherwise you can use the Windows UI to select multiple documents, right-click, and choose print).

Would a macro be acceptable? Here's the basic code needed to open and print a Word doc from a macro:

Sub PrintDocMacro()

Dim objWord As Object
Set objWord = CreateObject("Word.application") 'Start app
objWord.Documents.Open FileName:="c:\Temp\test.docx" 'Open doc
objWord.Visible = True
objWord.Application.PrintOut 'Print doc
objWord.ActiveDocument.Close savechanges:=True 'close & save doc
objWord.Application.Quit 'Close app
Set objWord = Nothing

End Sub

We'd need to write a loop to print all of the docs you want. If the docs you want to print are all of the docs in a given folder, we could do that too. Microsoft has example code for reading a directory.

If you want to print these on a schedule for some reason, I suppose you could make the file containing the macro run it with AutoOpen and even close when done and just schedule that macro-enabled file to be opened via the Task Scheduler.

I realize that this is an old question, but I didn't see the answer I use here.

You can use the right click option from the Windows Explorer shell to print multiple documents. Normally this has a 15 document limit; however, that limit can be changed in the registry. Here is the value to modify to your needed limit:

HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer
Name : MultipleInvokePromptMinimum
Type : DWORD
Default : 15 (decimal)

Hopefully that saves someone the trouble of using a macro.