VBA 批量打印单工作簿内所有可见工作表（sheet）

要解决的问题：

一个工作簿中有相同格式的多个sheet表，手动点击一张一张打印，太慢了。能不能一次性打印？

解决思路：

1、sheet表做好后，提前设置好打印的格式设置；

2、有默认的打印机。

3、根据工作表数量进行循环，然后打印，打印份数默认设为1份。

EXCEL VBA代码如下：

1. Sub test()

2.   Dim ws As Worksheet

3.   For Each ws In Worksheets

4.     If ws.Visible = xlSheetVisible Then ’只打印可见工作表

5.       ws.PrintOut Copies:=1 ‘如果默认打印一份，copies:=1可以删掉，如要打印n份，则将1改为n.

6.     End If

7.   Next

8. End Sub