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

要解决的问题：

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

解决思路：

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

2、有默认的打印机。

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

EXCELVBA代码如下：

Sub test()

Dim ws As Worksheet

For Each ws In Worksheets

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

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

End If

Next

End Sub