Aborting from a "Before Print" Event
 

What i am trying to do is to intercept a User's print instruction, and add a
message box asking a question, and depending upon the answer, either
allowing the Print to proceed, or abort. Unfortunately Exit Sub, End, or
Stop does not prevent execution of the Print command. What line can I
insert in the following to abort the print?

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Aborting from a "Before Print" Event
 

Set the Cancel argument to True

ans=MgBox "Yes or NO",vbYesNO
if ans = vbNo then
Cancel = True
End If

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Hotbird" wrote in message
news:Krtec.15636$4N3.13858@newsfe1-win...
What i am trying to do is to intercept a User's print instruction, and add
a
message box asking a question, and depending upon the answer, either
allowing the Print to proceed, or abort. Unfortunately Exit Sub, End, or
Stop does not prevent execution of the Print command. What line can I
insert in the following to abort the print?

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub