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

是否有使用 Excel 的 vb 脚本（或宏）将其所有工作表打印到给定打印机？页数是可变的。

Excel的版本是2007。

Thanks

看看有没有什么像这样 http://vbadud.blogspot.com/2007/05/print-multiple-sheets-using-vba.html就是您正在寻找的。您只需要设置一个循环来选择所有工作表，然后使用它select false除第一个之外的所有方法。

这是我拼凑而成的（我没有广泛测试，而且我的 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