Введение в DELPHI

       

Печать в текстовом режиме


Если Вам нужно напечатать на принтере документ в текстовом режиме, то это делается следующим образом. С принтером Вы работаете, как с обычным текстовым файлом, за исключением того, что вместо процедуры AssignFile нужно вызывать процедуру AssignPrn. В примере на принтер выводится одна строка текста: procedure TForm1.Button1Click(Sender: TObject); var To_Prn : TextFile; begin AssignPrn(To_Prn); Rewrite(To_Prn); Writeln(To_Prn, 'Printer in Text Mode'); CloseFile(To_Prn); end;

Здесь необходимо, видимо, пояснить, что по сравнению с BP 7.0 в Delphi изменены названия некоторых функций и переменных в модуле System :

  • AssignFile вместо Assign
  • CloseFile вместо Close
  • TextFile вместо Text



Содержание раздела