
(*
 Delphi Object and Component Reference
# {bmc bm18.BMP} {bmc bm9.BMP} Aborted example
The following code displays a dialog box if the print job was aborted:
*) 
if (Printer()->Aborted)
  Application->MessageBox("The print job did not finish printing.", "Alert!", MB_OK); 
