ThisWorkbook BeforePrint

Hi,

I need to run code after a print job.
I am using
Private Sub Workbook_BeforePrint(Cancel As Boolean)
in ThisWorkbook to execute code prior to printing,
but then I want to run code after printing.

Thanks
Simon

You might look into canceling the print at the beginning of the event.
Than have the code initiate the print (in the code).
Than continue your code to what you want to happen after the print.

--
steveB

Remove "AYN" from email to respond
"Simon Shaw" <simonATsimonstoolsDOTcom> wrote in message
news:[email protected]...
> Hi,
>
> I need to run code after a print job.
> I am using
> Private Sub Workbook_BeforePrint(Cancel As Boolean)
> in ThisWorkbook to execute code prior to printing,
> but then I want to run code after printing.
>
> Thanks
> Simon

Make sure that if you do this, you disable events prior to printing and
reenable them afterward, or you'll loop until you run out of stack
space. For instance:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
'Your code here
End Sub



In article <[email protected]>,
"Simon Shaw" <simonATsimonstoolsDOTcom> wrote:

> Hi,
>
> I need to run code after a print job.
> I am using
> Private Sub Workbook_BeforePrint(Cancel As Boolean)
> in ThisWorkbook to execute code prior to printing,
> but then I want to run code after printing.
>
> Thanks
> Simon

what if the user was performing a print preview... how do I tell the
difference?

"JE McGimpsey" wrote:

> Make sure that if you do this, you disable events prior to printing and
> reenable them afterward, or you'll loop until you run out of stack
> space. For instance:
>
> Private Sub Workbook_BeforePrint(Cancel As Boolean)
> Cancel = True
> Application.EnableEvents = False
> ActiveSheet.PrintOut
> Application.EnableEvents = True
> 'Your code here
> End Sub
>
>
>
> In article <[email protected]>,
> "Simon Shaw" <simonATsimonstoolsDOTcom> wrote:
>
> > Hi,
> >
> > I need to run code after a print job.
> > I am using
> > Private Sub Workbook_BeforePrint(Cancel As Boolean)
> > in ThisWorkbook to execute code prior to printing,
> > but then I want to run code after printing.
> >
> > Thanks
> > Simon
>

AFAIK, there's no way to detect the difference between Print and Print
Preview.

However, you can trap the Print Preview command with something like:

CommandBars(1).Controls("File").Controls("Print Preview").OnAction:= _
"MyMacro"

and

Commandbars("Standard").FindControl(id:=109).OnAction = "MyMacro"

In article <[email protected]>,
"Simon Shaw" <simonATsimonstoolsDOTcom> wrote:

> what if the user was performing a print preview... how do I tell the
> difference?