Excel VBA ExportAsFixedFormat不打印页边距

Sub ExportExcelToPDF()
    Dim filePath As String
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置导出路径
    filePath = "C:\path\to\output.pdf"
    
    ' 设置工作表和导出范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:D10")
    
    ' 设置打印页边距
    With ws.PageSetup
        .LeftMargin = Application.InchesToPoints(0.5) ' 左边距0.5英寸
        .RightMargin = Application.InchesToPoints(0.5) ' 右边距0.5英寸
        .TopMargin = Application.InchesToPoints(0.5) ' 上边距0.5英寸
        .BottomMargin = Application.InchesToPoints(0.5) ' 下边距0.5英寸
    End With
    
    ' 导出为PDF
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    ' 清除设置
    With ws.PageSetup
        .LeftMargin = Application.InchesToPoints(0.75) ' 默认左边距
        .RightMargin = Application.InchesToPoints(0.75) ' 默认右边距
        .TopMargin = Application.InchesToPoints(1) ' 默认上边距
        .BottomMargin = Application.InchesToPoints(1) ' 默认下边距
    End With
End Sub