Обрабатывает принтер как текстовый файл - простой способ печати текста
unit
procedure AssignPrn ( var FileHandle : TextFile ) ;
Описание
Процедура AssignPrn назначает принтер на FileHandle. Это означает, что последующая запись текста в этот файл будет перенаправена на принтер. Это обеспечивает простой и легкий способ формирования дампа текста на принтер.
Примечания
Предупреждение: Механизм AssignPrn полезен для простых программ, но испытывает недостаток в любом управлении печати для реального приложения.
Похожие команды
AssignFile Связывает дескриптор файла с бинарным или текстовым файлом
ReWrite Открывает текстовый или двоичный файл для записи
Write Записывает данные в бинарный или текстовый файл
WriteLn Записывает законченную строку данных в текстовый файл
Пример кода : Печать нескольких слов на принтере
var
myFile : TextFile;
printDialog : TPrintDialog;
begin // Создание диалога выбора
принтера
printDialog := TPrintDialog.Create(Form1); // Если пользователь выбрал принтер
(или значение по умолчанию), то печатайте!
if printDialog.Execute then
begin // Попытка
открыть файл принтера AssignPrn(myFile); // Теперь
подготовливаемся дляя записи на принтер
ReWrite(myFile); // Запишите несколько
известных слов в этот файл - //
вместо этого они будут напечатаны
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World'); // Закрытие фала
CloseFile(myFile);
end;
end;
После того, как пользователь выбирает принтер, следующий текст будет напечатан маленьким шрифтом в верхнем левом углу страницы: