你还在挨个打印word、excel文件吗？

当你有好多个word、excel文件需要打印的时候，一个个点开然后再打印是不是已经烦死你了？今天就来给各位分享一下批量打印word excel的方法。

注意：批量打印之前一定先设置好默认的打印机。

批量打印word

方法一：借助VBA

代码如下：

Sub批量打印WORD文档()

DimfileToOpen, GetOpenFilename, App, iFile

fileToOpen = Application.GetOpenFilename(filefilter:="Word文档(*.do*),*.do*", FilterIndex:=4, Title:="请选择要处理的文档(可多选)", MultiSelect:=True)

IfNotIsArray(fileToOpen)Then

MsgBox"你没有选择文件", vbOKOnly,"提示":ExitSub

Else:SetApp =CreateObject("Word.Application")

ForEachiFileInfileToOpen

SetWrdDoc = App.Documents.Open(iFile)

App.Documents(WrdDoc).PrintOut

App.Documents(WrdDoc).CloseFalse

T = T +1

Next

EndIf

MsgBox"操作完成！！"& vbCrLf &"打印了 "& T &" 个文件。", vbOKOnly,"提示"

EndSub

将代码保存在excel中，直接使用即可。效果演示（本机没有连接打印机，用虚拟打印机代替）：

方法二：借助工具 - Batchdoc

关于这个工具之前也介绍过：Batchdoc - word文档批量处理利器

除了批量打印之外，该软件还提供了多个批量任务选项，如：格式设置、页面设置、页眉页脚水印处理、属性设置、图片设置及替换、权限及密码设置、文件更名等等，非常的强大。

批量打印excel

可以参考之前vba的实例：Excel vba 实例（7）-一键批量打印工作簿

扩展一下

借助虚拟打印机软件，可以实现批量把word、excel打印成PDF文件，进而实现word、excel批量转换成PDF文件，比如 Win10 系统中的 Microsoft Print to PDF。

但是，大部分的虚拟打印机会有烦人的交互操作，比如上面方法一，可以看见每打印一次，就会弹出对话框需要选择 PDF 文档保存的位置和文件名，想想看，当我要打印100个文档，选择 PDF 文档保存的位置和文件名的操作要进行100次，这根本是没法接受的。

所有这里分享一个全静默打印的软件 - BullzipPDFPrinter

安装完成后，在打印之前，软件先设置不显示对话框

再设置打印后不自动打开文件

把虚拟打印机设置为系统的默认打印机，然后使用上面批量打印word excel的方法即可。

如果你需要上面vba的代码文件以及BullzipPDFPrinter，wx公号后台回复「批量打印」索取吧~~

欢迎交流！