多个excel怎么打印

当老板轻描淡写地丢过来一句“把这个文件夹里的Excel都打印一下”，而你点开一看，里面躺着上百个文件时，那种感觉，我想你懂的。那不是工作，那是一场对你鼠标手、耐心和人生意义的终极考验。想死的心都有了，对吧？一个个打开，Ctrl+P，回车，关闭，再打开下一个……那种感觉，就像被判了无期徒刑，刑期就是在这个文件夹里无休止地双击、等待、按键、关闭，直到地老天荒。

所以，咱们今天不聊别的，就聊聊怎么从这场 批量打印Excel的噩梦 中优雅地解脱出来。别再用那种堪称“愚公移山”的原始方法了，那不是勤奋，那是跟自己的时间过不去。

第一招：看似捷径的“右键大法”，其实是个坑

很多人可能第一时间会想到，Windows不是自带批量打印功能吗？把所有Excel文件全选，然后潇洒地右键，点击“打印”。Duang！打印机开始疯狂地吞吐纸张，你感觉自己简直是个天才，解决了世纪难题。

打住！先别高兴得太早。

这种方法，我称之为 “薛定谔的打印”。你永远不知道下一张打印出来的会是什么妖魔鬼怪。为什么？因为这个操作完全绕过了Excel的打印预览和设置环节。它会用你上次、上上次、甚至是上古时代某个文件保存的打印设置，或者干脆就是默认设置，来处理你这堆格式千奇百怪的报表。

你会遇到： * 一张A4纸只打印了表格的左上角一小块。 * 本来一页的内容，硬生生被截断，分成了四页打印，浪费纸张不说，看的人能把眼珠子瞪出来。 * 横版的表格给你竖着打了，竖版的给你横着打了。 * 页眉页脚乱七八糟，根本不是你想要的。

所以，这个方法能用吗？能。但只适用于一种情况：所有Excel文件的格式、页面设置都惊人地一致，且你完全不需要任何自定义设置。比如，打印一百份内容一样但文件名不同的发票存根。除此之外，用这个方法，你就是在给自己挖坑，打印出来的废纸能绕办公室三圈，老板看了你的“杰作”和浪费的耗材，估计脸会比打印机里的墨盒还黑。

第二招：真正解放双手的“VBA魔法”

好了，说了那么多废话，上点硬核的。要想真正实现 自动化、可控的批量打印，VBA（Visual Basic for Applications）就是你的屠龙宝刀。听着吓人？别怕，你不需要懂编程，你只需要学会复制粘贴，然后像念咒语一样点击一个按钮。

这玩意儿就是Excel里内置的一个自动化工具，能让机器帮你干那些重复的、无聊的脏活累活。

操作步骤，跟紧了：

1. 准备“弹药库”：把所有需要打印的Excel文件，全部放到同一个文件夹里。这个文件夹就是你的“弹药库”，方便VBA这把“自动步枪”扫射。记住这个文件夹的路径，比如 D:\月度报表\。

2. 召唤“魔法编辑器”：新建一个空白的Excel工作簿，这个工作簿就是你的“魔法阵地”。按住键盘上的 Alt + F11 键，你会看到一个全新的、看起来很专业的窗口。别慌，这就是VBA编辑器，是施展魔法的地方。

3. 吟唱“咒语”：在左侧的工程窗口里，找到你的这个新工作簿（通常叫VBAProject(工作簿1)之类的），在上面右键，选择“插入” -> “模块”。然后，你会看到右边出现一个空白的框框，这就是写“咒语”的地方。把下面这段代码，一字不差地复制粘贴进去：

```vb Sub 批量打印指定文件夹内的所有Excel文件() Dim MyFolder As String Dim MyFile As String Dim wb As Workbook

' --- 这里是唯一需要你修改的地方 ---
MyFolder = "D:\月度报表\"  ' 把这里的路径改成你自己的文件夹路径，注意最后要带上斜杠 \
' ------------------------------------

' 检查文件夹路径是否存在
If Dir(MyFolder, vbDirectory) = "" Then
    MsgBox "文件夹路径不存在，请检查！"
    Exit Sub
End If

' 构建文件搜索路径，*.xls* 表示所有Excel格式的文件
MyFile = Dir(MyFolder & "*.xls*")

' 开始循环处理文件夹里的每一个Excel文件
Do While MyFile <> ""
    ' 打开文件，注意这里设置了 ReadOnly:=True，以只读方式打开，更安全
    Set wb = Workbooks.Open(Filename:=MyFolder & MyFile, ReadOnly:=True)

    ' --- 核心打印指令，可以在这里“作法” ---

    ' 方案一：打印所有工作表
    ' wb.PrintOut

    ' 方案二：只打印名为“汇总表”的工作表
    On Error Resume Next ' 这句是为了防止某些文件没有“汇总表”而报错
    wb.Worksheets("汇总表").PrintOut
    On Error GoTo 0 ' 恢复错误处理

    ' 方案三：打印活动工作表（也就是打开时默认选中的那个）
    ' wb.ActiveSheet.PrintOut

    ' -----------------------------------------

    ' 关闭刚刚打开的工作簿，不保存任何更改
    wb.Close SaveChanges:=False

    ' 继续寻找下一个文件
    MyFile = Dir
Loop

MsgBox "全部打印任务已发送！请检查打印机。"

End Sub ```

1. 施法与见证奇迹：
   • 修改路径：看到代码里那句 MyFolder = "D:\月度报表\" 了吗？把双引号里面的路径，换成你自己的“弹药库”文件夹路径。这是唯一需要你动手改的地方，千万别改错了。
   • 选择打印方案：在“核心打印指令”那块，我给你准备了三个方案，前面带单引号 ' 的是注释，是无效的。你想用哪个方案，就把那个方案前面的单引号删掉，然后把其他方案的指令前面加上单引号。比如，你只想打印每个文件里名叫“汇总表”的那张纸，就把 wb.Worksheets("汇总表").PrintOut 前面的单引号去掉。
   • 运行！：回到你的Excel界面，点击“开发工具”选项卡（如果没有，去文件-选项-自定义功能区里勾选上），点击“宏”，选中我们刚才那个“批量打印指定文件夹内的所有Excel文件”，点击“执行”。

然后呢？然后就没你什么事了。去泡杯咖啡，或者带薪上个厕所，回来你会发现，打印机已经勤勤恳-恳地帮你把所有活儿都干完了。Excel会自动地、一个接一个地打开文件、执行打印命令、然后关闭。整个过程，全自动，零人工。

这才是真正的 降维打击。它不仅快，而且精准可控。你可以通过修改VBA代码，实现更复杂的操作，比如只打印每个工作簿的前三个工作表、给每个打印任务设置不同的份数等等。这扇门一旦打开，你会发现一个新世界。

第三招：懒人专属的“氪金玩法”

如果你觉得VBA还是有点门槛，或者你就是单纯地懒得折腾，那还有最后一招：使用第三方批量打印软件。

市面上有很多专门干这个的工具，它们把VBA能做的事情，都封装成了一个个按钮和选项框。你只需要把文件拖进去，在图形化界面上点点点，设置好打印哪个工作表、打印方向、纸张大小，然后点击“开始打印”就行了。

这种工具通常是收费的，但如果你是打印店老板，或者工作上需要常年累月地处理这种破事，花点小钱买断一个靠谱的软件，绝对是 一笔稳赚不赔的投资。它为你省下的时间、精力和避免的错误，远比软件本身的价格要值钱。这就好比打游戏，VBA是自己研究技能组合的“技术流玩家”，而第三方软件就是简单粗暴的“氪金玩家”，效果一样，路径不同。

所以，下次再面对一堆Excel文件，别再犯傻了。右键大法是陷阱，手动打印是自虐。要么，就花十分钟，像个极客一样，用VBA代码一劳永逸地解决问题；要么，就干脆利落地花钱买个工具。

把时间还给自己，去做点更有创造力、更有价值的事情，这才是技术的意义，不是吗？ 别让那些重复、机械的点击，吞噬掉你本该闪闪发光的工作时间。