Настройка страницы для распечатки PDF в моем коде VBA, кажется, не работает для меня, какие-либо предложения?

Question

код ниже, кажется, устанавливает правильную область печати, но когда он экспортируется в pdf, он все еще не помещается во все столбцы на одной странице.Конечный результат, который я ищу, - это разместить все столбцы на одной странице (альбомная ориентация), но строки не обязательно должны умещаться на одной странице. PDF1 PDF2 SampleXLSX

  For k = 1 To wb.Sheets.Count
If wb.Sheets(k).Name Like "Facility List" Or _
   wb.Sheets(k).Name Like "TimestampExportReport" Then GoTo line3

    Application.PrintCommunication = True
    wb.Sheets(k).PageSetup.PrintArea = "$A$1:$H$" & wb.Sheets(k).Cells(wb.Sheets(k).Rows.Count, 1).End(xlUp).Row
    Application.PrintCommunication = False

With wb.Sheets(k).PageSetup
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0)
    .BottomMargin = Application.InchesToPoints(0)
    .HeaderMargin = Application.InchesToPoints(0)
    .FooterMargin = Application.InchesToPoints(0)
    .Orientation = xlLandscape
    .PaperSize = ePaperSize
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
    .LeftHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""

End With
    wb.Sheets(k).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=strPathFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        Debug.Print k, strPathFile

 line3:

    Next k
End Sub