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

Question

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

Excel的版本是2007年。

由于

Answer 1

查看您正在寻找的like this内容。您只需要设置一个循环来选择所有工作表，并在除第一个工作表之外的所有工作表上使用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