const
  TOTAL_PAGES = 4;      // Сколько страниц печатать
var
  printDialog    : TPrintDialog;
  page, startPage, endPage : Integer;

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

  // Установка опций диалога печати
  printDialog.MinPage := 1;               
  printDialog.MaxPage := TOTAL_PAGES;
  printDialog.ToPage  := TOTAL_PAGES;
  printDialog.Options := [poPageNums];

  // Если пользователь выбрал принтер (или значение по умолчанию), то печатаем!
  if printDialog.Execute then
  begin
    // Используйте функцию Printer, чтобы получить доступ к глобальному объекту TPrinter.
    // Set to landscape orientation
    Printer.Orientation := poLandscape;

    // Установите заголовок printjob - как оно появляется в менеджере задания по выводу на печать
    Printer.Title := 'Test print for Delphi';

    // Устанавливаем число копий для печати каждой страницы
    Printer.Copies := printDialog.Copies;

    // Начало печати
    Printer.BeginDoc;

    // Пользователь выбрал диапазон страниц?
    if printDialog.PrintRange = prPageNums then
    begin
      startPage := printDialog.FromPage;
      endPage   := printDialog.ToPage;
    end
    else // Все страницы
    begin
      startPage := 1;
      endPage   := TOTAL_PAGES;
    end;

    // Установка номера начальной страницы
    page := startPage;

    // Продолжаем печатать пока всё OK
    while (not Printer.Aborted) and Printer.Printing do
    begin
      // Пишем номер страницы
      Printer.Canvas.Font.Color := clBlue;
      Printer.Canvas.TextOut(40,  20, 'Page number = '+IntToStr(page));

      // Увеличиваем номер страницы
      Inc(page);

      // Теперь начинаем новую страницу - если она не последняя
      if (page <= endpage) and (not printer.aborted)
      then Printer.NewPage;
    end;

    // Конец печати
    Printer.EndDoc;
  end;
end;