15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




Самый простой способ печати

Автор - Robert Vivrette

Частенько у начинающих программистов возникает вопрос: "Как вывести информацию на печать минуя механизм печати Windows?".

Механизм очень прост в использовании. Всё, что нужно, это воспользоваться функцией AssignFile, чтобы открыть файл с именем 'LPT1' (либо любой другой порт принтера). Операционная система распознаёт данное имя как специальный тип файла и перенаправляет вывод на порт принтера. Процедуры Write & Writeln используются, собственно, для посылки данных. Если Вам понадобится, чтобы принтер отдал лист после окончания печати, то просто отправьте ASCII код #12. Большинство принтеров понимает этот код, как подачу формы (formfeed).

var
  F : TextFile;
begin
  AssignFile(F,'LPT1');
  Rewrite(F);
  Writeln(F,'Hello');
  Writeln(F,'There!');
  Writeln(F,#12);
  CloseFile(F);
end;