2 Quick Ways to Batch Print Multiple Word Documents

Word Document Recovery, Word Solutions April 8, 2017

In today’s post, we are glad to share with you 2 quick ways to batch print multiple Word documents at once.

As document goes, it’s hard to not talk about the printing. Normally, we would open a document and print it separately one by one. This can be acceptable when there are only a few files. However, speaking of a large number of documents, we should come up with quicker solutions instead opening and printing each one manually.Batch Print Multiple Word Documents

Following are 2 available methods for you to batch print multiple Word documents.

Method 1: Print through the Contextual Menu

  1. To begin with, if you are no fan of selecting documents while printing, you can arrange them all under the same directory.
  2. Then visit the location where you store the target documents.
  3. Press “Ctrl+ A” to select all documents.
  4. Right click and choose “Print”.Select Documents->Right Click->Choose "Print"

By the way, you can print 15 documents at maximum each time with this method.

Method 2: Batch Print Documents via VBA

Since method 1 has a number limitation to 15, you can choose the macro way to bypass the restriction.

  1. First and foremost, organize all target files in the same folder.
  2. Then click “Developer” tab and “Visual Basic” next. If “Developer” tab is not in the Ribbon yet, press “Alt+ F11” instead to invoke the VBA editor.Click "Developer"->Click "Visual Basic"
  3. Next click “Normal” and “Insert” tab.
  4. And choose “Module” to create a new one.Click "Normal"->Click "Insert"->Click "Module"
  5. Double click on the module to have the coding space available on the right.
  6. Paste the codes there:
Sub BatchPrintWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.PrintOut
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub
  1. Last but not the least, click “Run” button or hit “F5”.Paste macro->Click "Run"

Now there will be a box popping up. Just enter the path where you keep documents and then click “OK” to wait for the printing.

Certainly, you can assign a button to the macro as to use it in the future. For more details, you can follow this link: How to Remove the Formatting of Pasted Texts with Macro and VBA in Your Word

Take Care of Your Word Documents

Since we know Word is vulnerable to errors and mistakes, our documents are at the risk all the time. Therefore, it’s time to take measures to secure valuable data. For instance, to prevent from ending with a corrupt doc, it’s a good habit to take backups on a daily basis.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including Excel repair and pdf repair software products. For more information visit www.datanumen.com

Comments are closed.