VBA导出PDF横向设置失效问题求助

直接调用Range.ExportAsFixedFormat时，工作表的PageSetup.Orientation设置不会被应用——这个方法是直接基于区域生成PDF，忽略工作表的页面配置。要让横向打印生效，需要先将目标范围设为打印区域，再基于工作表导出PDF，确保页面设置的作用被覆盖。

修改后的完整代码如下：

Sub PrintRentalToPDF()
    Application.EnableEvents = True
    ActiveSheet.Unprotect Password:="Mortgage1"
    
    Dim PrintRng As Range
    Dim pdfile As String
    Dim originalPrintArea As String ' 保存原打印区域，避免修改后影响原有设置
    
    ' 设置横向打印
    ActiveSheet.PageSetup.Orientation = xlLandscape
    
    ' 定义要打印的范围
    Set PrintRng = Range("C5:M15")
    ' 保存原打印区域
    originalPrintArea = ActiveSheet.PageSetup.PrintArea
    ' 将目标范围设为工作表打印区域
    ActiveSheet.PageSetup.PrintArea = PrintRng.Address
    
    sPath = Environ("USERPROFILE") & "\Desktop\"
    pdfile = Application.GetSaveAsFilename _
        (InitialFileName:=sPath & "Rental Income Calc", _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")
    
    If pdfile = False Then
        ' 用户取消保存时恢复原打印区域
        ActiveSheet.PageSetup.PrintArea = originalPrintArea
        ActiveSheet.Protect Password:="Mortgage1"
        Range("D6").Select
        Exit Sub
    Else
        ' 基于工作表导出PDF，应用横向设置和指定打印区域
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=pdfile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
            
        Call MsgBox(pdfile & " file has been saved!")
        ' 恢复原打印区域
        ActiveSheet.PageSetup.PrintArea = originalPrintArea
        ActiveSheet.Protect Password:="Mortgage1"
    End If
    
    Range("D6").Select
End Sub

关键修改说明：

• 新增originalPrintArea变量保存原打印区域，操作完成后恢复，避免影响工作表原有配置
• 将目标范围设为工作表的打印区域，让PageSetup的横向设置作用于该区域
• 使用ActiveSheet.ExportAsFixedFormat替代Range.ExportAsFixedFormat，确保页面设置被读取并应用
• 在用户取消保存的分支中也加入打印区域恢复逻辑，保证操作的完整性

内容的提问来源于stack exchange，提问作者MEC