Printing
Paul, thanks, this is what I was looking for. Could not figure it out
myself.
"Paul B" wrote in news:O6jtX5mvDHA.2508
@TK2MSFTNGP12.phx.gbl:
Pete, try this
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Msg = "Do you want to print the recap sheet also ?"
Title = "Print Recap Sheet ?"
Response = MsgBox(Msg, vbYesNo + vbQuestion, Title)
If Response = vbNo Then
Exit Sub ' Quit the macro
End If
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("recap").PrintOut Copies:=1
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
|