Excel通过VBA导出PDF时底部左侧出现边框的跨设备解决方案求助

我需要将Excel工作表导出为PDF，使用了以下VBA代码（注释为曾尝试的操作）：

ThisWorkbook.Sheets(sheet).Select

'ActiveSheet.PageSetup.PrintArea = "A1:A320"
With ActiveSheet.PageSetup
    '.Zoom = False
    '.FitToPagesTall = 1
    '.FitToPagesWide = 1
    '.LeftMargin = Application.InchesToPoints(0)
    '.RightMargin = Application.InchesToPoints(0)
    '.TopMargin = Application.InchesToPoints(0)
    '.BottomMargin = Application.InchesToPoints(0)
End With

Application.ActivePrinter = "Microsoft Print to PDF on Ne00:"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filepath & "_noFont.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

无论怎么设置边距，生成的PDF底部和左侧始终有边框。

系统详情 #

• Excel 2019 Version 2312 (Build 17126.20132) 64-bit

已尝试的操作 #

• 设置自定义边距为0
• 使用Microsoft Print to PDF作为打印机：Application.ActivePrinter = "Microsoft Print to PDF on Ne00:"
• 明确指定打印区域：ActiveSheet.PageSetup.PrintArea = "A1:A64"
• 设置缩放为1页宽×1页高：.FitToPagesTall = 1，.FitToPagesWide = 1
• 禁用“为A4纸张大小缩放内容”（选项\高级\常规）
• 检查默认纸张大小：A4且边距设为0.00厘米

解决方案 #

1. 重置页面设置并优化导出代码 #

彻底清除原有打印区域，统一设置页面参数，同时避免依赖系统打印机设置，改用Excel原生导出逻辑：

ThisWorkbook.Sheets(sheet).Select

' 清除原有打印区域
ActiveSheet.PageSetup.PrintArea = ""

With ActiveSheet.PageSetup
    .PaperSize = xlPaperA4 ' 强制指定A4纸张
    .Zoom = False ' 必须禁用缩放才能启用适配设置
    .FitToPagesTall = 1
    .FitToPagesWide = 1
    ' 用厘米转点，减少单位转换误差
    .LeftMargin = Application.CentimetersToPoints(0)
    .RightMargin = Application.CentimetersToPoints(0)
    .TopMargin = Application.CentimetersToPoints(0)
    .BottomMargin = Application.CentimetersToPoints(0)
    .HeaderMargin = Application.CentimetersToPoints(0) ' 清除页眉边距
    .FooterMargin = Application.CentimetersToPoints(0) ' 清除页脚边距
    .PrintHeadings = False ' 不打印行号列标
    .PrintGridlines = False ' 关闭网格线打印（排除网格线导致的边框）
End With

' 重新指定打印区域
ActiveSheet.PageSetup.PrintArea = "A1:A320"

' 无需指定打印机，直接用Excel原生导出
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=filepath & "_noFont.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

2. 检查并清除单元格边框 #

确认打印区域内的单元格是否自带边框，可通过代码批量清除：

' 清除指定区域的所有边框
ActiveSheet.Range("A1:A320").Borders.LineStyle = xlNone

3. 规避虚拟打印机边距限制 #

Microsoft Print to PDF有默认最小边距限制，跨设备通用的话，直接使用ExportAsFixedFormat原生导出即可，无需设置Application.ActivePrinter，该方法不依赖系统打印机配置。

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