VBA批量打印Excel审计底稿的所有Sheet

这两天，思源君在交割日审计项目现场面临批量打印Excel底稿的问题(标的公司合并范围内有多家公司)，之前思源君也写过一篇文章，叫做《Python批量打印文件》，当时是在批量打印PDF、WORD、图片的时候用起来很顺手，但是这次打印Excel底稿时再运行这个Python程序发现只能批量打印不同Excel底稿关闭前所在的某一个Sheet，无法批量打印工作簿中的所有Sheet,因此今天思源君在网上又找到了一个VBA代码（无需安装任何程序，只需要安装有Excel就行，代码来自于“永恒君的百宝箱”），可以批量打印同一个目录下所有Excel底稿的所有Sheet,亲测有效，今天和大家分享一下：

1、新建一个Excel,点击开发工具选项下的Visual Basic按钮

2、输入以下代码

Sub 打印指定文件()    Dim iPath$, iName$, Wb As Workbook    Dim i    iPath = ThisWorkbook.Path & '\'    iName = Dir(iPath & '*.xls*')    On Error Resume Next    Do While iName <> ''        If iName <> ThisWorkbook.Name Then            Set Wb = Workbooks.Open(iPath & iName)                     For i = 1 To Wb.Worksheets.Count                             Wb.Worksheets(i).PrintOut                Next                Wb.Close False                End If                iName = Dir    LoopEnd Sub

如图

3、点击保存，另存为Excel中启用宏的工作簿(后缀变为xlsm)

4、然后将要打印的A、B、C底稿（提前设置好每个Sheet的打印格式）与批量打印底稿的宏文件放在一个文件夹下，设置好默认打印机

5、再次打开批量打印.xlsm(Excel中启用宏的工作簿),点击运行按钮，即可实现批量打印Excel审计底稿的所有Sheet功能