Советы по 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]
