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