我在使用以下代码时遇到问题,并且在粗体代码行上收到类型不匹配错误:
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim p
Dim ActivePrinter
Dim Sheets
p = Application.ActivePrinter
ActivePrinter = ("Send to OneNote 2010")
**Sheets(Array("R-Overview", "R-Savings", "R-Table")).PrintOut , , 1**
End Sub
您不能像这样创建/传递数组。尝试这个 (久经考验)
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim p
Dim ActivePrinter
Dim shtsArray(1 To 3) As String
p = Application.ActivePrinter
ActivePrinter = ("Send to OneNote 2010")
shtsArray(1) = "R-Overview"
shtsArray(2) = "R-Savings"
shtsArray(3) = "R-Table"
Sheets(shtsArray).PrintOut , , 1
Application.ScreenUpdating = True
End Sub
另一种方式
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim p
Dim ActivePrinter
Dim shtsArray
Dim sheetNames As String
p = Application.ActivePrinter
ActivePrinter = ("Send to OneNote 2010")
sheetNames = "R-Overview,R-Savings,R-Table"
shtsArray = Split(sheetNames, ",")
Sheets(shtsArray).PrintOut , , 1
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)