Как сохранить PDF в альбомной ориентации и изменить размер бумаги

Question

Мне нужно изменить этот код "сохранить в pdf" в альбомном и юридическом размере.

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

Sub SavePDF()

    Dim sFile As String

    sFile = Application.DefaultFilePath & "\" & _
      ActiveWorkbook.Name & ".pdf"

    ActiveSheet.PageSetup.PrintArea = "A1:K27"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=sFile, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True

End Sub

Answer 1

Sub SavePDF()

Dim sFile As String

ActiveSheet.PageSetup.Orientation = xlLandscape

sFile = Application.DefaultFilePath & "\" & _
    ActiveWorkbook.Name & ".pdf"

    ActiveSheet.PageSetup.PrintArea = "A1:K27"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=sFile, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True

End Sub

Вы можете проверить подобное решение здесь , если этого недостаточно