仅通过VBA打印PDF时出现删除线文本（问题表现不一致）

问题背景 #

我有一个带按钮的电子表格，点击按钮可通过VBA导出为PDF，相关代码如下：

Range(printrange).ExportAsFixedFormat Type:=xlTypePDF, filename:=filepath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

这段代码此前运行稳定，但近期部分用户导出的PDF中出现了删除线文本——仅PDF显示异常，表格本身无此问题，且并非所有用户都会遇到。已确认受影响用户使用相同的PDF打印机，手动打印PDF无异常，仅VBA触发导出时出现问题。

解决方案 #

• 调整ExportAsFixedFormat参数
  尝试修改IgnorePrintAreas为True，避免Excel读取打印区域时的格式解析异常；或者明确指定打印的页码范围，减少格式歧义：

  ' 修改IgnorePrintAreas参数
  Range(printrange).ExportAsFixedFormat _
      Type:=xlTypePDF, _
      filename:=filepath, _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=True, _
      OpenAfterPublish:=False
  

  或者指定具体页码范围（适配printrange对应的区域）：

  ActiveSheet.ExportAsFixedFormat _
      Type:=xlTypePDF, _
      filename:=filepath, _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      From:=Range(printrange).Row, _
      To:=Range(printrange).Row + Range(printrange).Rows.Count - 1, _
      OpenAfterPublish:=False
  

• 清理Excel格式缓存与打印设置
  让受影响用户执行以下操作：

  1. 打开文件后进入「页面布局」选项卡，确认打印区域无异常格式，删除多余的条件格式或隐藏格式；
  2. 选中问题区域，按Ctrl+Shift+~重置单元格格式，再重新设置所需样式；
  3. 检查「文件>选项>高级>打印」，确保未勾选「使用草稿品质」等可能影响输出的选项。

• 修复/同步Office版本
  组件损坏或版本差异可能导致格式解析错误：

  1. 打开「控制面板>程序和功能」，找到Microsoft Office，右键选择「更改>联机修复」；
  2. 确保所有用户更新到相同版本的Office（含最新补丁），统一版本能减少兼容性问题。

• 改用模拟手动打印的导出方式
  如果上述方法无效，绕过ExportAsFixedFormat，直接调用PDF打印机模拟手动操作：

  Dim originalPrinter As String
  ' 保存原默认打印机
  originalPrinter = Application.ActivePrinter
  ' 切换到PDF打印机（替换为实际打印机名称）
  Application.ActivePrinter = "Microsoft Print to PDF"
  
  ' 打印指定范围到PDF
  Range(printrange).PrintOut _
      filename:=filepath, _
      PrintToFile:=True, _
      IgnorePrintAreas:=False
  
  ' 恢复原打印机
  Application.ActivePrinter = originalPrinter
  

内容的提问来源于stack exchange，提问作者Lauren Alivia Morgan