Excel VisualBasic Script

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Debug.Print Now()
    Debug.Print Application.UserName
    Debug.Print ActiveSheet.Name
End Sub