如何通过VBA代码将Excel所有列完整导出至PDF文件？

你的代码仅设置了页面横向，但未配置列宽适配和打印区域，导致部分列无法完整显示在PDF中。只需在PageSetup中添加适配规则，并指定正确的打印范围即可解决：

修改后的完整代码 #

Sub ExportAllColumnsToPDF()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim saveLocation As String
    Dim templePath As String
    
    templePath = "d:\sample.xlsx"
    Set wb = Workbooks.Open(templePath)
    Set ws = wb.Sheets(1)
    
    With ws.PageSetup
        .Orientation = xlLandscape ' 设置横向
        .Zoom = False ' 关闭缩放，启用适配模式
        .FitToPagesWide = 1 ' 强制所有列适配一页宽度
        .FitToPagesTall = False ' 行数不限制，超出自动分页
        .PrintArea = ws.UsedRange.Address ' 设置打印区域为所有有数据的范围
    End With
    
    saveLocation = "d:\sample.pdf"
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation
    
    wb.Close SaveChanges:=False
    Set wb = Nothing
    Set ws = Nothing
End Sub

关键说明 #

• FitToPagesWide = 1：核心设置，让Excel自动调整列宽比例，确保所有列在一页内完整显示
• Zoom = False：必须关闭手动缩放，否则适配规则不会生效
• PrintArea = ws.UsedRange.Address：确保打印范围包含所有有数据的单元格，避免遗漏内容
• FitToPagesTall = False：如果数据行数过多，会自动分页，不会强行压缩到一页导致内容过小

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