要解决的问题:
一个工作簿中有相同格式的多个sheet表,手动点击一张一张打印,太慢了。能不能一次性打印?
解决思路:
1、sheet表做好后,提前设置好打印的格式设置;
2、有默认的打印机。
3、根据工作表数量进行循环,然后打印,打印份数默认设为1份。
EXCEL VBA代码如下:
-
Sub test()
-
Dim ws As Worksheet
-
For Each ws In Worksheets
-
If ws.Visible = xlSheetVisible Then ’只打印可见工作表
-
ws.PrintOut Copies:=1 ‘如果默认打印一份,copies:=1可以删掉,如要打印n份,则将1改为n.
-
End If
-
Next
-
End Sub