Uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.Abort; //Annule l'impression en cours
MessageDlg('Echec impression ', mtInformation, [mbOK],0);
end;