Функція Printer – повертає посилання на глобальний об'єкт Printer

Функція Printer в Delphi повертає посилання на глобальний об'єктPrinter.

Функція Printer: Друк текстових рядків ширини та висоти сторінки на сторінці

var
  printDialog : TPrintDialog;
  myPrinter   : TPrinter;

begin
  // Створення діалогу вибору принтера
  printDialog := TPrintDialog.Create(Form1);

  // Якщо користувач вибрав принтер (або значення за замовчуванням), друкуємо!
  if printDialog.Execute then
  begin
    // Використовуйте функцію Printer, щоб отримати доступ до
     // Глобальний об'єкт TPrinter
    
    myPrinter := Printer;
    with myPrinter do
    begin
      // Початок друку
      BeginDoc;

      // Встановлення великого синього шрифту
      Canvas.Font.Size   := 20;
      Canvas.Font.Color  := clBlue;

      // Виписуємо розмір сторінки
      Canvas.TextOut(20,  20, 'Ширина сторінки = + IntToStr (PageWidth));
       Canvas.TextOut(20, 150, 'Висота сторінки = '+IntToStr(PageHeight));

      // Кінець друку
      EndDoc;
    end;
  end;
end;