在VBA中将excel表格转换为PDF时，有没有在指定分页符之前进行缩放的方法？

Sub ConvertToPDF()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
    
    ' 设置打印选项
    With ws.PageSetup
        .Zoom = False ' 禁用自动缩放
        .FitToPagesWide = 1 ' 每页宽度为1页
        .FitToPagesTall = False ' 高度自适应
        .PrintArea = "$A$1:$D$10" ' 打印区域
    End With
    
    ' 打印到PDF
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\Path\To\Output.pdf", _ ' 替换为你的输出路径和文件名
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub