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