VBA Excel设置打印区域

Question

I am setting a print area using named range, since it's a table and it grows. When I execute, the headings wont print. How can I adjust this to print the named range(Table3) along with the headers?

I tried; ActiveSheet.PageSetup.PrintArea = Range("Table3{Headers}").Address but only printed the Headers.

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

I want the headers and Table3 to print.

Answer 1

A table is a ListObject . Use the ListObject.Range property to return the Range that the table refers to (includes headers).

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

Change the sheet name as needed.