Delphi-Help

Описание

Процедура AssignPrn назначает принтер на FileHandle. Это означает, что последующая запись текста в этот файл будет перенаправена на принтер. Это обеспечивает простой и легкий способ формирования дампа текста на принтер.

Пример кода

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

Примечание

Предупреждение: Механизм AssignPrn полезен для простых программ, но испытывает недостаток в любом управлении печати для реального приложения.