'ちょっとした裏技ですがOntimeを使うことで出来ます
'「標準モジュール」ではなく「ThisWorkbook」に記述します。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "印刷前です"
'印刷前にOntimeで実行すると、実際には印刷後に実行される
Application.OnTime Now(), "ThisWorkbook.After_Insatsu"
End Sub
Private Sub After_Insatsu()
MsgBox "印刷後です"
End Sub