Как вывести текст на Printer?

<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>