2009-05-29 149 views

回答

2

從UI - 轉至所需的工作表,並進入文件 - >打印

從VBA -

Call Worksheets("MySheet").PrintOut 

Call MySheet.PrintOut 

,或者如果你有一個以上的

Dim shts As New Collection 
Call shts.Add(Sheet1) 
Call shts.Add(Sheet3) 
Call shts.Add(Sheet5) 

Dim sht As Worksheet: For Each sht In shts 
    Call sht.PrintOut 
Next sht 
0

它可以作爲一個數組太:


Thisworkbook.Sheets(陣列( 「Sheet 1中」, 「表Sheet 3」, 「Sheet5」))打印輸出

或:

昏暗arString(1〜3)作爲字符串

arString(1)= 「Sheet 1中」
arStri NG(2)= 「表Sheet 3」
arString(3)= 「Sheet5」

Thisworkbook.Sheets(arString).Printout

無論哪種方式是可行的。