Excel VB脚本打印所有工作簿的工作表

有没有使用Excel的VB脚本（或macros）打印到指定的打印机的所有工作表？ 张数是可变的。

Excel的版本是2007年。

谢谢

Answer 1

看看这样的事情是你在找什么。 你只需要设置一个循环来select所有的工作表，并且在第一个工作表之外的所有工作表中使用这个select false方法。

这是我拼凑在一起的（我没有广泛的testing，我的VBA有点生疏）

 Sub loopandprint() Dim ws As Worksheet Dim i As Integer i = 0 For Each ws In ActiveWorkbook.Worksheets If (i = 0) Then ws.Select Else ws.Select False End If i = i + 1 Next ws ActiveWindow.SelectedSheets.PrintOut Copies:=1 End Sub