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
|