Печать в PDF (формат A3) размер экспорта составляет 160 х 110 см

Question

У меня есть большая электронная таблица, которую я зацикливаю и печатаю каждую страницу в отчете в формате PDF.

Я пытаюсь распечатать их в формате A3, однако фактический размер экспорта намного больше, чем страница A3. .

Есть предложения, что я делаю не так?

Вот мой текущий код:

Sub printChartsA3()

    Application.ScreenUpdating = False

    Dim sPrintArea As String
    Dim wks As Worksheet

    Const path As String = "E:\A3 Charts\"

    sPrintArea = "A1:BM69"

    For Each wks In Worksheets

            Application.PrintCommunication = False

            wks.PageSetup.PaperSize = xlPaperA3
            wks.PageSetup.Orientation = xlLandscape
            wks.PageSetup.LeftMargin = Application.InchesToPoints(0.25)
            wks.PageSetup.RightMargin = Application.InchesToPoints(0.25)
            wks.PageSetup.PrintArea = sPrintArea
            wks.PageSetup.Zoom = False
            wks.PageSetup.FitToPagesWide = 1
            'wks.PageSetup.FitToPagesTall = 1 'not sure if this one is needed?

            Application.PrintCommunication = True

            wks.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=path & wks.Name & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    Next

    Set wks = Nothing

    Application.ScreenUpdating = True

End Sub