Another way to suppress print besides Cancel = True?

[mikeburg]

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

 

[Tom Ogilvy]

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.

 

[mikeburg]

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

 

[Tom Ogilvy]

You can use

Activesheet.PrintPreview

 

[mikeburg]

Still prints to the printer once preview is closed.

Any other ideas?

Thank you so very much. mikebur