Printquality 600 ошибка 1004

Я пытаюсь распечатать счет-фактуру после создания 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

Here is my code:

Sub PageSetup_General2()
Dim WS As Worksheet
Dim Match As Range

Set WS = ActiveWorkbook.ActiveSheet
Application.PrintCommunication = True

Set Match = WS.Cells.Find(What:="Source #", LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        'Find Range for .PrintTitleRows
        
With WS.PageSetup
        .CenterHeader = "&F"
        .LeftFooter = "Prepared by " & Application.UserName
        'Sets username, to check what your username is, go to File>Options>General
        .CenterFooter = "&D"
        .RightFooter = "Page &P"
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        'Sets arrow margins
        .PrintQuality = 600
        .Orientation = xlLandscape
        'Sets Landscape
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .PrintTitleRows = Match
        'Yields error: "Run-time error '1004': "Unable to set the PrintTitleRows property of the PageSetup class"
End With
End Sub

I’m messing with Application.PrintCommunication and double checking that my printer drivers are installed, but to no avail…Any thoughts on what’s going on with this sub?

Хотя это разрешено в комментариях, ответ лучше всего так;

В PrintTitleRowsсвойство, согласно документации MS:

Возвращает или задает строки, содержащие ячейки, которые должны повторяться вверху каждой страницы, в виде строки в нотации стиля A1 на языке макроса. Чтение / запись строки.

Таким образом, чтобы получить обозначение в стиле A1, используйте Range.Address недвижимость — в вашем случае, Match.Address. Допустим, ваш диапазон представляет собой ячейкиA5 к D5, который вернет Match.Address в качестве $A$5:$D$5

Вы можете ссылаться на документацию по свойству.Address здесь.

Если вы хотите вернуть адрес без $абсолютная ссылка, установите для параметров rowAbsolute и columnAbsolute значениеFalse, т.е. .Address False, False который вернется A5:D5