Советы по Delphi




Printer.Abort не работает...


Это может помочь:

procedure TForm1.Button1Click(Sender: TObject);beginPrinter.BeginDoc;Printer.Canvas.TextOut(100,100, 'Программирование - это просто');if CheckBox1.Checked then {Прерывание работы принтера.}beginPrinter.Abort;WinProcs.AbortDoc(Printer.Canvas.Handle);Printer.EndDoc; {Наводим порядок.}exit;end;Printer.EndDoc;end;

- William E Murto [000727]




Содержание  Назад  Вперед