AfterPrint or OnPrintingComplete

rbuser

I have tried both the AfterPrint and OnPrintingComplete events to try to
signal when printing is complete.
I want to do something when these events are fired.

Here is the code leading up to the Print method:

Treptemp.Close;
Treptemp.Filter := 'REP_NAME='+''''+'Invoicing'+'''';
Treptemp.Filtered := True;
Rinvoicing.Template.DatabaseSettings.Name := 'Invoicing';
Rinvoicing.Template.LoadFromDatabase;
Rinvoicing.DeviceType := 'Printer';
Rinvoicing.Print;
Treptemp.Close;

I have attached code to the OnPrintingComplete event handler as well as the
AfterPrint event handler: I have yet to even see the ShowMessage.

procedure TFRMinvoicing_main.RinvoicingPrintingComplete(Sender: TObject);
begin
ShowMessage('Made It To Here!');
case RGhow.ItemIndex of
0 : begin
//do something here.
end;
end;
end;


Any suggestions? D5, RBent602


Bo Manry
bom@medmanagementllc.com

digitalmetaphors

Reassign the event handlers, immediately after loading the template.


Cheers,

Jim Bennett
Digital Metaphors

rbuser

I assigned the event handler after the LoadFromDatabases command as follows:

Rinvoicing.OnPrintingComplete := RinvoicingPrintingComplete;

This did not seem to work. However, I assigned the AfterPrint event like
this
Rinvoicing.AfterPrint := RinvoicingPrintingComplete;

This worked fine. Is there something about the OnPrintingComplete that does
not work?


Thanks,

Bo

digitalmetaphors

OnPrintingComplete is deprecated. It will only fire in pre-RB4.0 reports.
Use AfterPrint instead.


Cheers,

Jim Bennett
Digital Metaphors