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

| 是否使用excel的vb脚本(或宏)将其所有图纸打印到给定的打印机上?张数是可变的。 Excel的版本是2007。 谢谢     
已邀请:
看看是否正在寻找这样的东西。您只需要建立一个循环以选择所有工作表,然后在除第一个之外的所有工作表上使用
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
    

要回复问题请先登录注册