Excel 如何在横向视图中保存PDF并更改纸张大小

我需要将此“保存为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

---

如果这还不够

您必须单独执行，而不是通过.pdf导出。您可以使用宏录制手动进行页面设置，然后查看如何在VBA中解决此问题。但请注意和

应用程序。DefaultFilePath

可能不同于

此工作簿。path

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