Сообщество Чайников

Вопрос

Как можно на матричный принтер подать на печать текст с псевдографикой? Просто хочу написать программку, которая бы печатала в ускоренном режиме текст с таблицами.

Ответ

Я так думаю, что следующим образом:

// код для Дельфи. Для паскаля textfile=text, assignfile=assign, closefile=close
Procedure Print;
var f:textfile;
begin
assignfile(f,'LPT1'); //порт, куда подключен принтер
rewrite(f);
writeln(f,'---123---'); // тута можно печатать всJ, что угодно.
writeln(f,'---456---'); // коды символов псевдографики можно найти
writeln(f,'---789---'); // в мануале к принтеру или в приведенном ниже примере
writeln(f,#12); // кажись так делается прогон страницы.
closefile(f);
end;
// коды символов в следующем виде
Code 129 = А
Code 130 = Б
Code 131 = В
Code 132 = Г
Procedure Codes;
var f:textfile;
i:byte;
begin
assignfile(f,'LPT1');
rewrite(f);
for i:=129 to 254 do begin
if i mod 2 = 0 then write(f,' '); // это чтоб разнести коды
// по горизонтали (иначе псевдографика слиться
// может друг в друга…
writeln(f,'Code ',inttostr(i),' = ',chr(i));
end;
writeln(f,#12);
closefile(f);
end;

Из конференции Expert_FAQ