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

← →
vladimir_12 (2002-03-19 09:11) [0]

Здравствуйте. Помогите с проблемой. Надо печатать некий текст на матричный принтер в текстовом режиме (как в ДОС). Как это сделать?

← →
Song © (2002-03-19 09:16) [1]

Можно выводить текст на канву принтера через TextOut, но в Вашем случае, я думаю, проще так:
Var ff:TextFile; ... AssignPrn(ff); ReWrite(ff); try WriteLn(ff,"test"); finally CloseFile(ff); end;

← →
vladimir_12 (2002-03-19 09:19) [2]

нее... Так он печатает в графическом режиме, это первое, что я попробовал

← →
Song © (2002-03-19 09:21) [3]

Вы не правы, Владимир, но спорить желания нет.
Скажу одно: графически печать выводится на TPrinter.Canvas

Var ff:TextFile;
...

Assignfile(ff,"prn"); либо "lst" либо "LPT1 "
ReWrite(ff);
WriteLn(ff,"test");
CloseFile(ff);
end;
Только в очередь не ставвит. а так печатает

Печать в текстовом режиме Найти похожие ветки