如何将指定Excel区域导出为PDF并填满整个页面（无页边距）

直接用Range.ExportAsFixedFormat导出时，Excel会沿用当前工作表的默认页面布局设置（边距、缩放规则），导致目标区域无法填满PDF页面。要实现无白边填满效果，需要临时调整页面参数，导出后恢复原设置，避免影响原文件。

修改后的完整宏代码如下：

Sub printToPDF()
    Dim ws As Worksheet
    Dim originalMarginTop As Double, originalMarginBottom As Double
    Dim originalMarginLeft As Double, originalMarginRight As Double
    Dim originalFitToPagesWide As Long, originalFitToPagesTall As Long
    Dim originalPrintArea As String
    Dim originalOrientation As XlPageOrientation
    
    ' 绑定当前工作表，避免ActiveSheet切换问题
    Set ws = ActiveSheet
    
    ' 保存原有页面设置，后续恢复
    originalMarginTop = ws.PageSetup.TopMargin
    originalMarginBottom = ws.PageSetup.BottomMargin
    originalMarginLeft = ws.PageSetup.LeftMargin
    originalMarginRight = ws.PageSetup.RightMargin
    originalFitToPagesWide = ws.PageSetup.FitToPagesWide
    originalFitToPagesTall = ws.PageSetup.FitToPagesTall
    originalPrintArea = ws.PageSetup.PrintArea
    originalOrientation = ws.PageSetup.Orientation
    
    On Error GoTo RestoreSettings ' 出错时也恢复原设置
    
    ' 设置目标打印区域
    ws.PageSetup.PrintArea = ws.Range("B2:I103").Address
    
    ' 设置页边距为0（部分打印机不支持0边距，可设为Excel允许的最小值，比如0.1）
    ws.PageSetup.TopMargin = Application.InchesToPoints(0)
    ws.PageSetup.BottomMargin = Application.InchesToPoints(0)
    ws.PageSetup.LeftMargin = Application.InchesToPoints(0)
    ws.PageSetup.RightMargin = Application.InchesToPoints(0)
    
    ' 设置缩放规则：将区域适配为1页宽1页高，强制填满页面
    ws.PageSetup.FitToPagesWide = 1
    ws.PageSetup.FitToPagesTall = 1
    
    ' 根据区域长宽调整页面方向（可选，确保适配最佳）
    If ws.Range("B2:I103").Width > ws.Range("B2:I103").Height Then
        ws.PageSetup.Orientation = xlLandscape ' 横向
    Else
        ws.PageSetup.Orientation = xlPortrait ' 纵向
    End If
    
    ' 导出PDF
    ws.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ws.Range("K21").Value & ws.Range("K23").Value, _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True

RestoreSettings:
    ' 恢复原有页面设置
    ws.PageSetup.TopMargin = originalMarginTop
    ws.PageSetup.BottomMargin = originalMarginBottom
    ws.PageSetup.LeftMargin = originalMarginLeft
    ws.PageSetup.RightMargin = originalMarginRight
    ws.PageSetup.FitToPagesWide = originalFitToPagesWide
    ws.PageSetup.FitToPagesTall = originalFitToPagesTall
    ws.PageSetup.PrintArea = originalPrintArea
    ws.PageSetup.Orientation = originalOrientation
    
    Set ws = Nothing
End Sub

关键说明： #

• 保存/恢复原设置：避免修改用户原有工作表的页面布局，导出后完全还原。
• 0边距适配：若打印机不支持0边距，可将Application.InchesToPoints(0)改为Application.InchesToPoints(0.1)（Excel允许的最小边距）。
• 页面方向自动切换：根据目标区域的长宽自动选择横竖版，确保区域最大化填充页面。
• 强制缩放规则：通过FitToPagesWide = 1和FitToPagesTall = 1，让Excel自动缩放区域至刚好填满一页。

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