Советы по Delphi



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]




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