運行時錯誤13：類型不匹配

Question

我有下面的代碼的問題，我對代碼的粗體線得到一個類型不匹配錯誤：

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 

Answer 1

您不能創建/通過這樣的陣列。試試這個（久經考驗）

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 

Answer 2

至於說here您的代碼工作。

由於Sheets變量被聲明爲variant，所以在修改的代碼中出現Type Mismatch錯誤。只需將其刪除，您的代碼將再次運行。