I have the following code to execute BeforePrint event.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Print Envelopes" Then
Application.OnTime Now + TimeValue("00:00:05"), ThisWorkbook.Name &
"!PrintEnvelopes"
Cancel = True
End If
End Sub

The problem is that I have a print routine within the code to be
executed 5 seconds after clicking & the Cancel = True prevents it.

Is there another way to suppress printing without using Cancel = True
in the BeforePrint event?

I want to be able to print via clicking printer Icon or running the
code.

Thanks a million. mikeburg


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=490604

No, but you can suppress events

Sub PrintEnvelopes()
Application.EnableEvents = False
Activesheet.Printout
Application.EnableEvents = True
End Sub


this might help your recursive calls to ontime as well.
--
Regards,
Tom Ogilvy


"mikeburg" wrote in
message ...

I have the following code to execute BeforePrint event.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Print Envelopes" Then
Application.OnTime Now + TimeValue("00:00:05"), ThisWorkbook.Name &
"!PrintEnvelopes"
Cancel = True
End If
End Sub

The problem is that I have a print routine within the code to be
executed 5 seconds after clicking & the Cancel = True prevents it.

Is there another way to suppress printing without using Cancel = True
in the BeforePrint event?

I want to be able to print via clicking printer Icon or running the
code.

Thanks a million. mikeburg


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile:
http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=490604

Thanks for the response. Can't seem to get it to work.

Is there a way to set the output to a dummy printer where nothing
prints?

thanks a million.. mikeburg


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=490604

You can use

Activesheet.PrintPreview

--
Regards,
Tom Ogilvy


"mikeburg" wrote in
message ...

Thanks for the response. Can't seem to get it to work.

Is there a way to set the output to a dummy printer where nothing
prints?

thanks a million.. mikeburg


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile:
http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=490604

Still prints to the printer once preview is closed.

Any other ideas?

Thank you so very much. mikebur

--
mikebur
-----------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...fo&userid=2458
View this thread: http://www.excelforum.com/showthread.php?threadid=49060