VBA Excel Настройка области печати

Question

Я устанавливаю область печати, используя именованный диапазон, так как это таблица, и она растет. Когда я выполняю, заголовки не будут печататься. Как я могу настроить это для печати именованного диапазона (Table3) вместе с заголовками?

Я пытался; ActiveSheet.PageSetup.PrintArea = Range("Table3{Headers}").Address но напечатаны только заголовки.

Application.Dialogs(xlDialogPrinterSetup).Show
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = Range("Table3").Address
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup

Я хочу напечатать заголовки и таблицу 3.

Answer 1

Таблица представляет собой ListObject. Используйте свойство ListObject.Range для возврата Range, на который ссылается таблица (включая заголовки).

Dim myTbl as ListObject
Set myTbl = ThisWorkbook.Sheets("mysheetname").ListObjects("Table3")
...
ThisWorkbook.Sheets("mysheetname").PageSetup.PrintArea = myTbl.Range.Address

При необходимости измените имя листа.