Aborting from a "Before Print" Event

[Hotbird]

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

 

[Bob Phillips]

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)