批量打印文件夾中的多個Word文檔

問題：批量打印文件夾中的多個Word文檔

方法1 利用VBA程序

打開一個新的Excel文檔（不要求在要打印的Word文檔所在的文件夾中），選擇【開發工具】一欄（沒有的話在欄目一行任意一處單擊右鍵，點 【自定義功能區】，在【主選項卡】 表中的選項中選上 【開發工具】，點擊確定），點擊Visual Basic，雙擊 Sheet1（Sheet1）表，在出現的代碼框中粘貼：

Sub 批量打印WORD文檔()
     Dim fileToOpen, GetOpenFilename, App, iFile
     fileToOpen = Application.GetOpenFilename(filefilter:="Word文檔(*.do*),*.do*", FilterIndex:=4, Title:="請選擇要處理的文檔(可多選)", MultiSelect:=True)
     If Not IsArray(fileToOpen) Then

        MsgBox "你沒有選擇文件", vbOKOnly, "提示": Exit Sub

     Else: Set App = CreateObject("Word.Application")
         For Each iFile In fileToOpen
             Set WrdDoc = App.Documents.Open(iFile)
             App.Documents(WrdDoc).PrintOut
             App.Documents(WrdDoc).Close False
             T = T + 1
         Next
     End If
     MsgBox "操作完成！！" & vbCrLf & "打印了 " & T & " 個文件。", vbOKOnly, "提示"
End Sub

點擊運行按鈕 （F5），會提示”請選擇要處理的文檔（可多選）”，按提示操作即可。

注：打印設置會按打印機首選配置進行，批量打印前請先在打印機設置頁面設好打印格式。

方法2 利用Windows系統批量打印

Windows系統（如Windows 7,10）自帶右鍵批量打印功能，但有批量打印上限（一般為15個），可以手動在注冊表中修改打印上限。但是這種打印方法會把所有要打印的文件全部打開，打印數量受電腦配置的限制，多了電腦會死機，所有修改打印上限數量請謹慎。
修改右鍵打印上限的方法：
打開電腦中的【運行】窗（快捷鍵 Win+R），輸入”regedit“，點擊確定即打開注冊表，展開到”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer“，右鍵點擊【Explorer】→【新建】→【DWORD（32位）值】，重命名為【MultipleInvokePromptMinimum】，然后雙擊它，把值修改為想要同時打開的文件數目。