Справочник функций и процедур Delphi: AssignPrn

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

AssignPrn
Процедура
Обрабатывает принтер как текстовый файл - простой способ печати текста unit
  procedure AssignPrn ( var FileHandle : TextFile ) ;

Google  
 
Описание
Процедура 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook