Checking PRINTout isnt broken and no Preview

rbuser

Hello,

for me it is important to check whether the printout is surely printed out
to printer.

HOW CAN I CHECK THIS??

First,
I think I have to guarantee that the actual printer is not the
preview-printer.

Second,
I think I have to check whether the printerdialouge hat not been broken by
the user.

Has anyone an idea - or some helplinks

many thanks came from bavaria by
martin

digitalmetaphors

From the TechTips | Printer thread:


------------------------------------------
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');


Cheers,

Jim Bennett
Digital Metaphors