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]
