最近做Python开发时碰到个实际需求：把Excel转PDF之前，得先搞清楚工作表到底占几页打印纸，这样能精准控制PDF的输出——内容只够1页就生成1页PDF，要是占3页就老老实实导出3页。

但麻烦的是不同Excel文件的行高不一样，有的文件1-29行就占满1页，有的得1-37行才到分页线，按固定行数算完全不靠谱。我自己写了部分代码，但卡在怎么准确判断实际打印页数上，想请教下怎么补上这块逻辑。

我目前的代码（需要补充页数判断逻辑） #

from win32com import client  # 导入win32com模块，用于操作Excel
excel = client.Dispatch("Excel.Application")  # 启动本地的Excel应用程序
sheets = excel.Workbooks.Open("你的文件路径.XLS")  # 打开目标Excel文件
work_sheets = sheets.Worksheets[0]  # 选中工作簿里的第一个工作表
work_sheets.PageSetup.FitToPagesWide = 1  # 设置打印时宽度适配为1页，避免横向分页
# 这里需要判断实际打印页数，然后设置FitToPagesTall参数
# if 实际页数为num_pages:
#     work_sheets.PageSetup.FitToPagesTall = num_pages
work_sheets.ExportAsFixedFormat(0, "输出的PDF路径.pdf")  # 将工作表导出为PDF（0代表PDF格式，1是XPS）

解决方案：利用Excel的水平分页符统计实际页数 #

其实Excel本身已经帮我们计算好了分页位置，我们可以直接读取它的HPageBreaks属性——这个属性会返回工作表里所有的水平分页符集合。因为每一个水平分页符都对应一页的末尾，所以实际打印页数就是「水平分页符数量 + 1」。

不过要注意，在获取分页符之前，必须让Excel完成最新的分页计算，尤其是修改过行高的文件，不然可能拿到缓存的旧数据。

完整的实现代码 #

from win32com import client

def export_excel_to_pdf_with_page_control(excel_file_path):
    # 初始化Excel应用
    excel = client.Dispatch("Excel.Application")
    excel.Visible = False  # 后台运行，不弹出Excel窗口
    try:
        # 打开目标Excel文件
        workbook = excel.Workbooks.Open(excel_file_path)
        worksheet = workbook.Worksheets[0]
        
        # 先设置宽度适配1页，这会影响分页计算，必须先执行
        worksheet.PageSetup.FitToPagesWide = 1
        
        # 强制Excel重新计算分页（关键步骤，避免旧缓存）
        worksheet.Calculate()  # 先计算单元格数据
        # 切换视图触发页面布局更新，确保分页符是最新的
        excel.ActiveWindow.View = 2  # 切换到页面布局视图
        excel.ActiveWindow.View = 1  # 切回普通视图
        
        # 统计实际打印页数：水平分页符数量 + 1
        page_count = worksheet.HPageBreaks.Count + 1
        
        # 设置打印高度适配为实际页数，这样导出的PDF就会按真实页数输出
        worksheet.PageSetup.FitToPagesTall = page_count
        
        # 生成PDF路径（替换原文件后缀）
        pdf_path = excel_file_path.replace(".xls", ".pdf").replace(".XLS", ".pdf")
        # 导出PDF
        worksheet.ExportAsFixedFormat(0, pdf_path)
        
        print(f"PDF导出成功，共{page_count}页")
        return page_count
    finally:
        # 无论成功失败，都要关闭工作簿和Excel，避免残留进程
        workbook.Close(SaveChanges=False)
        excel.Quit()

# 调用示例，替换成你的Excel文件路径
export_excel_to_pdf_with_page_control("D:/test/你的文件.xls")

几个关键细节提醒 #

• 后台运行：设置excel.Visible = False可以避免Excel窗口弹出，适合批量处理场景。
• 分页刷新：切换视图的操作是为了让Excel重新计算分页，尤其是行高修改过的文件，这一步能保证拿到的页数是准确的。
• 进程清理：一定要在finally块里关闭工作簿并退出Excel，否则会有Excel进程残留，占用系统资源。
• 格式适配：代码里处理了.xls和.XLS的后缀替换，如果需要处理.xlsx文件，直接在replace里加上即可。

内容的提问来源于stack exchange，提问作者Thigh Master 3000