错误1004 -工作表类的PrintOut方法失败(在创建pdf文件之后)

Question

在生成PDF后，我尝试打印发票，但是我得到了一个错误：

工作表类失败的PrintOut方法

只要我不调用pdf生成程序，打印过程就会工作得很完美。

我试着把床单藏起来，激活，再选一次.但什么都不管用。我是VBA的新手，所以如果有人能向我解释我为什么会犯这个错误，那就太好了。

Sub Print()
    Dim ImprCour As String
    Dim Impr2 As String
    ImprCour = Application.ActivePrinter
    Impr2 = "WorkCenter 6515"
    Application.ActivePrinter = Impr2
    Worksheets("Facture").Visible = True
    Worksheets("Retour").Visible = True
    Sheets(Array("Facture", "Retour")).Select
    MsgBox ActiveSheet.Name
    Worksheets(Array("Facture", "Retour")).PrintOut
    Worksheets("Facture").Visible = xlVeryHidden
    Worksheets("Retour").Visible = xlVeryHidden
    Worksheets("Facture").Visible = True
    Worksheets("Retour").Visible = True
    Application.ActivePrinter = ImprCour
End Sub

Sub Pdf_And_Print()
Sheets(Array("Facture", "Retour")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    FileName:="/Users/stefland/Desktop/Projets/Pro/...-v.03/.../.../.../.../..." & "_" & Range("H21").Value & ".pdf", _
    OpenAfterPublish:=True, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, _
    Quality:=xlQualityStandard, _
    From:=1, To:=2
    Print
End Sub

Answer 1

尝尝这个

Sub wsPrint(sh As Worksheet)
    Dim ImprCour As String
    Dim Impr2 As String
    ImprCour = Application.ActivePrinter
    Impr2 = "WorkCenter 6515"
    Application.ActivePrinter = Impr2
    sh.Visible = True
    MsgBox sh.Name
    sh.PrintOut
    'sh.Visible = xlVeryHidden
    Application.ActivePrinter = ImprCour
End Sub

Sub Pdf_And_Print()
    Dim sh As Worksheet
    For Each sh In Sheets(Array("Facture", "Retour"))
        sh.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="/Users/stefland/Desktop/Projets/Pro/...-v.03/.../.../.../.../..." & "_" & sh.Range("H21").Value & ".pdf", _
            OpenAfterPublish:=True, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            Quality:=xlQualityStandard, _
            From:=1, To:=2
            wsPrint sh
    Next sh
End Sub