VBA实现打印前对工作簿重新计算

VBA实现打印前对工作簿重新计算

如果在处理表格数据时,计算方式设置成手动重算,表格数据是无法实时更新的~那么我们要定义在打印前来一次重新计算~

输入如下代码:

 

  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)   
  2.     For Each wk in Worksheets   
  3.         wk.Calculate   
  4.     Next   
  5. End Sub   

此代码在打印前将对当前工作簿的所有工作表进行重新计算,保证数据实时性!

代码很短,但希望对你有帮助!

分享到: