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