Excel VBA如何将A1:BJ10区域拆分三个页面导出为PDF

方案1：插入垂直分页符导出为单份PDF（含3个独立页面） #

该方案导出的PDF包含3个页面，每页对应你指定的三个拆分区域，代码如下：

Sub ToPDF()
    Dim Path As String
    ' 可自行修改导出路径，示例为当前Excel文件同目录下的导出结果.pdf
    Path = ThisWorkbook.Path & "\导出结果.pdf"
    
    With Sheets(1)
        ' 先清除原有分页符，避免旧设置干扰
        .ResetAllPageBreaks
        ' 页面基础设置：横向，自适应为1页宽、1页高
        .PageSetup.Orientation = 2
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 1
        
        ' 插入垂直分页符，按要求拆分区域
        .VPageBreaks.Add Before:=.Range("S1") ' 第一页到R列结束，第二页从S列开始
        .VPageBreaks.Add Before:=.Range("BC1") ' 第二页到BB列结束，第三页从BC列开始
        
        ' 导出整个区域，Excel会自动按分页符拆分为3个页面输出
        .Range("A1:BJ10").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path, Openafterpublish:=True
        
        ' 导出后清除新增分页符，恢复工作表原有状态
        .ResetAllPageBreaks
    End With
End Sub

方案2：导出为3个独立的PDF文件 #

如果你需要每个拆分区域对应单独的PDF文件，可使用以下代码：

Sub To3SeparatePDF()
    Dim SavePath As String
    ' 导出路径前缀，示例为当前Excel文件所在目录
    SavePath = ThisWorkbook.Path & "\"
    
    With Sheets(1)
        .PageSetup.Orientation = 2
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 1
        
        ' 分别导出三个区域为独立PDF
        .Range("A1:R10").ExportAsFixedFormat xlTypePDF, Filename:=SavePath & "区域1_A到R列.pdf", Openafterpublish:=False
        .Range("S1:BB10").ExportAsFixedFormat xlTypePDF, Filename:=SavePath & "区域2_S到BB列.pdf", Openafterpublish:=False
        .Range("BC1:BJ10").ExportAsFixedFormat xlTypePDF, Filename:=SavePath & "区域3_BC到BJ列.pdf", Openafterpublish:=True
    End With
End Sub

注意事项 #

• 代码中的导出路径需要确保有读写权限，否则会导出失败
• 如需调整页面边距、页眉页脚等样式，可在PageSetup代码段补充对应的配置参数

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