there is an workbook beforeprint event, that is triggered when you start
printing.
is there some event [or some way to simulate it] that will be triggered when
the print job is generated and sent to the spooler/printer?

reason:
i have some fancy formating that is nice when you look at the screen, but is
not acceptable to be printed on the b/w laser
so, beforeprint event easily remove that formating when going to print, but
how to restore that formating automaticly after print is done?

[version: excel 2000]

thnx!

Hi,

You might try this:-

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Static Printit As Boolean
If Printit = True Then Exit Sub
Printit = True
ActiveSheet.PrintOut

'This code executes after printing
MsgBox "Print comp" 'Delete this line and put your own code in
Printit = False
Cancel = True
End Sub

Mike

"sali" wrote:

> there is an workbook beforeprint event, that is triggered when you start
> printing.
> is there some event [or some way to simulate it] that will be triggered when
> the print job is generated and sent to the spooler/printer?
>
> reason:
> i have some fancy formating that is nice when you look at the screen, but is
> not acceptable to be printed on the b/w laser
> so, beforeprint event easily remove that formating when going to print, but
> how to restore that formating automaticly after print is done?
>
> [version: excel 2000]
>
> thnx!
>
>
>

thnx!

nice idea to use eventproc itself to cancel its own event [suicide]


"Mike H" <(E-Mail Removed)> je napisao u poruci interesnoj
grupi:462AAEF0-3D87-4C24-80B4-(E-Mail Removed)...
> Hi,
>
> You might try this:-
>
> Private Sub Workbook_BeforePrint(Cancel As Boolean)
> Static Printit As Boolean
> If Printit = True Then Exit Sub
> Printit = True
> ActiveSheet.PrintOut