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