Try adding this event code to the Thisworkbook object's Codemodule:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Application.Calculation = xlCalculationManual Then
MsgBox "In manual, but I will now calculate"
Application.CalculateFull
End If
If Application.Calculation = xlCalculationAutomatic Then
MsgBox "In Auto mode, so all OK"
End If
End Sub
Once you have finished testing to ensure it works, you can try simplifying to just
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.CalculateFull
End Sub
Or use a macro to print
Sub PrintMacro()
Application.CalculateFull
Sheets("Pump Control").PrintOut
End Sub
Bookmarks