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;