批量打印文件夹中的多个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】，然后双击它，把值修改为想要同时打开的文件数目。