Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Application.Calculation = xlAutomatic   ' Automatic calculations
End Sub