How to tell if actually printed

rbuser

If I use the .Print method to print the report, this will display the print
dialog. Is there anyway to know if the user actually did print the report or
whether they pressed the cancel button?

nicocizik

------------------------------------------
Tech Tip: Detecting whether Report was
Printed to the Printer
------------------------------------------

The Report.AfterPrint event can be used to
determine whether the report was printed
to the printer (rather than preview, ...).


Example:


procedure TForm1.ppReport1AfterPrint(Sender: TObject);
begin

if (ppReport1.PrinterDevice <> nil) then
ShowMessage('Report was printed to the printer');

end;



Note: If the user cancels the report while it
is running, then the Report.OnCancel event will
fire, followed by the Report.AfterPrint event.

Example:

procedure TForm1.ppReport1Cancel(Sender: TObject);
begin
ShowMessage('Printing cancelled by user');

end;


------------------------------------------
Tech Tip: Detecting whether PrintDialog's
Cancel button was Selected
------------------------------------------

When the print dialog is displayed to the
user, you can determine whether the Cancel
button was selected by using the
Report.OnPrintDialogClose event.

Example:

procedure TForm1.ppReport1PrintDialogClose(Sender: TObject);
begin

if ppReport1.PrintDialog.ModalResult = mrCancel then
ShowMessage('Use chose to cancel the print request');

end;


--