Excel VBA строки, чтобы повторить в верхней части, за исключением последней страницы

Question

У меня есть динамическая таблица с 3 строками в качестве заголовка, а затем несколько общих замечаний под таблицей. Я хочу, чтобы строки заголовков повторялись на каждой странице, на которой появляется таблица, но если последняя страница содержит только общие замечания, то не повторяйте строки заголовков на последней странице.

Я установил логикучтобы проверить, содержит ли последняя страница только общие замечания, но при печати в PDF, страница 1 печатается дважды, а страница 2 не печатается (если рабочая таблица содержит 2 страницы).

Может кто-нибудь помочь сообщить, как решить эту проблемуможно решить? Спасибо.

Я пытался добавить "Application.PrintCommunication = True" и "Рабочие листы (" Цитата "). Активировать", но кажется, что они не помогают.

Sub print_with_repeated_rows()

Call Precheck

Dim active_sheet As Variant, page_nums As Variant

Set active_sheet = ThisWorkbook.ActiveSheet
page_nums = active_sheet.PageSetup.Pages.count

If Last_page_need_title_row Then
    active_sheet.PrintOut From:=1, To:=page_nums
Else

    On Error Resume Next
    Application.PrintCommunication = True
    Err.Clear

    Worksheets("Quotation").Activate
    With ActiveSheet.PageSetup
    .PrintTitleRows = "Print_Titles"
    ActiveSheet.PrintOut From:=1, To:=page_nums - 1
    .PrintTitleRows = ""
    ActiveSheet.PrintOut From:=page_nums, To:=page_nums
    End With

End If

End Sub