Excel 2003 - this code will still show the print dialog box. Is there anyway
to avoid it?

Public Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "No printing for you!"
Cancel = True
End Sub

On Windows XP with Excel 2002 or Excel 2003 running...
all I see is the message box, the print dialog box is not shown.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"DG" <(E-Mail Removed)>
wrote in message
Excel 2003 - this code will still show the print dialog box. Is there anyway
to avoid it?

Public Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "No printing for you!"
Cancel = True
End Sub

I don't see it in XL04 or XL03...

Do you have events enabled?

In article <AD71F8B3-F0E9-4CA1-AA5F-(E-Mail Removed)>,
DG <(E-Mail Removed)> wrote:

> Excel 2003 - this code will still show the print dialog box. Is there anyway
> to avoid it?
>
> Public Sub Workbook_BeforePrint(Cancel As Boolean)
> MsgBox "No printing for you!"
> Cancel = True
> End Sub

Yes, but if I disable events then I will never see another prompt. So at what
point do I re-enable the events?

"JE McGimpsey" wrote:

> I don't see it in XL04 or XL03...
>
> Do you have events enabled?
>
> In article <AD71F8B3-F0E9-4CA1-AA5F-(E-Mail Removed)>,
> DG <(E-Mail Removed)> wrote:
>
> > Excel 2003 - this code will still show the print dialog box. Is there anyway
> > to avoid it?
> >
> > Public Sub Workbook_BeforePrint(Cancel As Boolean)
> > MsgBox "No printing for you!"
> > Cancel = True
> > End Sub
>

Disable events for as short a period as you need.
Do what you need to do with the events disabled
Enable events



DG wrote:
>
> Yes, but if I disable events then I will never see another prompt. So at what
> point do I re-enable the events?
>
> "JE McGimpsey" wrote:
>
> > I don't see it in XL04 or XL03...
> >
> > Do you have events enabled?
> >
> > In article <AD71F8B3-F0E9-4CA1-AA5F-(E-Mail Removed)>,
> > DG <(E-Mail Removed)> wrote:
> >
> > > Excel 2003 - this code will still show the print dialog box. Is there anyway
> > > to avoid it?
> > >
> > > Public Sub Workbook_BeforePrint(Cancel As Boolean)
> > > MsgBox "No printing for you!"
> > > Cancel = True
> > > End Sub
> >

--

Dave Peterson