要想解决此类问题,我们得先假设你的工作薄文件满足如下的要求,方能批量打印多个工作薄。因为这得使用VBA来完成,不是通过简单办法就能完成的。
因此,你必须具备一定的VBA基本功,否则,也是无法使用本文提供的功能代码的。
所需要的条件如下,当然,如果你懂代码,你也可以根据自己的需求自行修改代码。
条件1:工作薄文件,最好为1.xls,2.xls,3.xls,4.xls……
条件2:假设如上的工作薄文件,都必须存放在某个目录里面,比如,在C盘下面的名为“大众计算机”这样的文件夹中。
然后,在C盘下名为 大众计算机 的文件夹下,打开一个空白的EXCEL,按 ALT + F11,粘贴下列代码,之后按F5运行宏即可。
具体的功能代码如下:
Dim i As Integer
i = i + 1
For i = 1 To 9
Workbooks.Open Filename:="C:\大众计算机\" & i & ".xls"
If i > 0 Then
Dim k As Integer
k = k + 1
For k = 1 To 3
If k > 0 Then
Sheets(k).Select
Activesheets.PrintOut
End If
Next k
ActiveWindow.Close
End If
Next i
上述的代码,具体功能是,将C:\大众计算机\这个目录下面的9个工作薄都进行打印,而打印的时候,每个工作薄只打印前面三个工作表。
因此,你可以在这些地方稍作修改。
For i = 1 To 9,这里控制打印的工作薄数量,此为9,如果你的少了或更多,请修改这个9为你的工作薄数量。
其次,For k = 1 To 3,这里控制打印每个工作薄的时候,只打印前面三个工作表,如果你的每个工作薄的工作表数据更多或更少,请修改此处数字为你需要的数字即可。