2009-05-29 155 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

无论哪种方式是可行的。