| Описание |
|
Процедура AssignPrn назначает принтер на FileHandle. Это означает, что последующая запись текста в этот файл будет перенаправена на принтер. Это обеспечивает простой и легкий способ формирования дампа текста на принтер.
|
|
| Примечания |
|
Предупреждение: Механизм AssignPrn полезен для простых программ, но испытывает недостаток в любом управлении печати для реального приложения.
|
|
| Похожие команды |
AssignFile Связывает дескриптор файла с бинарным или текстовым файлом
CloseFile Закрывает открытый файл
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;
|
После того, как пользователь выбирает принтер, следующий текст будет напечатан маленьким шрифтом в верхнем левом углу страницы:
Hello
World
|
|
