Private Sub Workbook_BeforePrint(Cancel As Boolean)
    'Do something
End Sub