The Unofficial Newsletter of Delphi Users - by Robert Vivrette

Печать прямо на  Printer

by Robert Vivrette - RobertV@compuserve.com

Перевод Руденко Е.В.   janerev@hotmale.ru    апрель 2001 года


Некоторые читатели спрашивают, как печатать прямо на принтер , минуя оболочку для вывода на печати Windows , то есть без вывода перед печатью диалоговой формы с выбором  параметров шрифта и принтера.  Также, иногда требуется вывести информацию прямо в файл, минуя принтер.

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


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


Возврат в Tips&Tricks