使用VBA测量Excel展项高度适配PDF单页打印的问题

• 显示缩放的会话差异：Excel的显示缩放比例（如100%、125%）会影响RowHeight属性的读取值。如果操作其他文件时调整过缩放，下次打开目标文件时可能沿用该缩放设置，导致计算出的总行高和之前不同。
• 打印预设的缓存干扰：PDF打印依赖系统的打印配置，期间操作其他文件时修改过打印机、纸张尺寸或打印缩放比例，Excel会缓存这些设置。再次打开目标文件时，缓存的设置会改变单页实际可容纳的行高阈值，让原本的725磅标准失效。
• 行高的浮点精度误差：Excel行高实际存储为浮点数值，不同会话读取RowHeight时可能存在微小的精度差异，累加多行后就会出现总行高的上下浮动。
• 视图状态的残留影响：关闭文件时的视图状态（比如冻结窗格、拆分窗口）可能被保存，下次打开时视图渲染的细微变化会影响行高读取，尤其是包含合并单元格、自动换行文本的行。

• 强制统一显示缩放：在VBA代码开头加入ActiveWindow.Zoom = 100，确保每次计算行高时的基准一致。
• 基于打印设置动态计算阈值：不要用固定的725磅，而是通过PageSetup获取单页可打印高度，代码示例：

  Dim pageHeight As Double
  With ActiveSheet.PageSetup
      pageHeight = IIf(.PaperSize = xlPaperA4, 792, 0) ' A4纸打印高度为792磅，可根据边距调整
      pageHeight = pageHeight - .TopMargin - .BottomMargin
  End With
  

• 重置打印配置：每次处理前强制设置打印参数，避免缓存干扰：

  With ActiveSheet.PageSetup
      .PaperSize = xlPaperA4
      .FitToPagesWide = 1
      .FitToPagesTall = 1
      .Zoom = False ' 禁用手动缩放，启用适配单页
  End With
  

• 关闭视图状态保存：在Excel选项的“高级”中，找到“显示”下的“保存工作簿视图”并取消勾选，避免视图差异影响行高读取。

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