Процедура AssignPrn – обробляє принтер як текстовий файл (простий спосіб друку тексту)

Процедура AssignPrn в Delphi обробляє принтер як текстовий файл (простий спосіб друку тексту).

Процедура AssignPrn: Друк кількох слів на принтері

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;