Excel打印前刷新单元格计算值，原有VBA代码失效问题咨询

原代码失效常见排查点 #

• 代码存放位置错误：Workbook_BeforePrint 是工作簿级事件，必须写入VBA编辑器的 ThisWorkbook 模块，写入普通模块不会触发
• 宏权限未开启：Excel默认禁用未签名宏，需在「文件-选项-信任中心-信任中心设置-宏设置」中选择「启用所有宏（仅用于自己信任的文件）」或者对文件进行数字签名
• 计算模式限制：如果Excel全局计算设置为手动模式，需确认未勾选「除了数据表外，重算所有文档」的限制项

实现代码 #

版本1：全工作表强制刷新（修复原有逻辑） #

比原有代码增加了事件禁用防止递归，以及强制完全计算的逻辑，适配最新版Excel：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ' 禁用事件防止计算过程中重复触发打印事件
    Application.EnableEvents = False
    Dim wk As Worksheet
    For Each wk In ThisWorkbook.Worksheets
        ' 强制完全计算，跳过Excel的缓存判断
        wk.CalculateFullRebuild
    Next
    Application.EnableEvents = True
End Sub

版本2：仅刷新指定单元格（适配核心需求） #

如果不需要全表计算，只需要刷新特定单元格，修改为以下代码即可，示例中为刷新Sheet1的A1、B3:B10、Sheet2的C5单元格，可自行修改对应范围：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Application.EnableEvents = False
    ' 按需指定需要刷新的单元格范围
    ThisWorkbook.Sheets("Sheet1").Range("A1,B3:B10").Calculate
    ThisWorkbook.Sheets("Sheet2").Range("C5").Calculate
    ' 有其他需要刷新的范围继续往下加即可
    Application.EnableEvents = True
End Sub

验证方法 #

配置完成后可以先在目标单元格输入易变函数测试，比如输入=RAND()，修改其他单元格后直接打印，查看随机数是否更新即可确认逻辑生效。

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