如何确定Excel工作表转PDF后每页打印的行数

• 直接用Excel分页预览功能
  打开目标Excel文件，切换到「视图」选项卡点击「分页预览」，Excel会自动显示分页边界，你能直观看到每页包含的行范围。如果需要调整，还可以手动拖拽分页符修改每页行数，转PDF时会严格遵循这个分页设置。

• 通过打印预览直接统计
  点击「文件」-「打印」进入打印预览界面，翻页查看每页的行号区间，直接数出行数即可。这个预览结果和最终PDF完全一致，哪怕有隐藏行或自定义打印区域也不会出错。

• 修正后的精准计算方法
  你之前的计算偏差是因为忽略了几个关键细节，调整后可以得到更准确的结果：

  1. 统一单位：把行高、纸张尺寸、边距都转换成相同单位（比如英寸），A4纸总高度是11英寸，有效打印高度=11英寸-上下边距总和（默认上下边距各0.75英寸，有效高度就是9.5英寸）。
  2. 行高转换：Excel行高默认是「点（pt）」，1英寸=72点，比如行高14.25pt，转换成英寸就是14.25÷72≈0.198英寸。
  3. 扣除页眉页脚：如果设置了页眉页脚，要从有效高度里再减去这部分的高度。
     计算公式：每页最大行数 = （纸张有效高度 - 页眉页脚高度）÷ 单行高度（同单位），结果取整数。但要注意Excel可能会避免拆分单元格自动调整分页，计算后最好用预览验证。

• VBA脚本批量获取（多工作表场景）
  如果要处理多个工作表，用VBA可以快速输出每页的行范围：

  Sub GetPageRowCounts()
      Dim ws As Worksheet
      Dim pg As HPageBreak
      Dim lastRow As Long
      Dim startRow As Long
      
      For Each ws In ThisWorkbook.Worksheets
          startRow = 1
          lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
          Debug.Print "工作表：" & ws.Name
          
          For Each pg In ws.HPageBreaks
              Debug.Print "第" & pg.Index & "页：行" & startRow & "至行" & pg.Location.Row - 1
              startRow = pg.Location.Row
          Next pg
          
          ' 输出最后一页
          Debug.Print "第" & ws.HPageBreaks.Count + 1 & "页：行" & startRow & "至行" & lastRow
      Next ws
  End Sub
  

  按Alt+F11打开VBA编辑器，插入模块粘贴代码，运行后在「立即窗口」就能看到每个工作表的分页行数据。

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