Как вывести текст на Printer?
Главная / FAQ / Работа с периферийными устройствами (модем, принтер и др.)
<p>Пример вывода строки текста на принтер, в том числе и на LPT2:</p>
<code>
Uses Printer; {в этом юните есть файловая перем. которая связана}
{c принтером, называется lst, открывать и закрывать не}
{надобно т.к. все делается автоматически}
begin
writeln(lst,'Не подскажете, как вывести строчку на принтер?');
end.
</code>
Когда пpинтеp на LPT2 или еще где висит:
<code>
var
Lst : Text;
begin
Assign(Lst,'LPT2');
Rewrite(Lst);
Writeln(Lst,'Hе подскажете, как распечатать на принтере строчку?');
Close(Lst);
end.
</code>