Delphi 1
Printer.Abort не работает...
Это может помочь:
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.BeginDoc;
Printer.Canvas.TextOut(100,100, 'Программирование - это просто');
if CheckBox1.Checked then {Прерывание работы принтера.}
begin
Printer.Abort;
WinProcs.AbortDoc(Printer.Canvas.Handle);
Printer.EndDoc; {Наводим порядок.}
exit;
end;
Printer.EndDoc;
end;
|
- William E Murto [000727]