Ох уж этот принтер!)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 const int TOTAL_PAGES = 4;      // Сколько страниц печатать
 int page, startPage, endPage;
 // Создание диалога выбора принтера
 TPrintDialog *printDialog = new TPrintDialog(this);
 // Установка опций диалога печати
 printDialog->MinPage = 1;
 printDialog->MaxPage = TOTAL_PAGES;
 printDialog->ToPage  = TOTAL_PAGES;
 printDialog->Options << poPageNums;
 // Если пользователь выбрал принтер (или значение по умолчанию), то печатаем!
 if(printDialog->Execute())
 {
  //используем глобальный класс. ВНИМАНИЕ отдельного экземпляра создавать не нужно
  Printer()->Orientation = poLandscape;
  Printer()->Title = 'Тест';
  Printer()->Copies = printDialog->Copies;
  Printer()->BeginDoc();
 
  if(printDialog->PrintRange == prPageNums)
  {
   startPage = printDialog->FromPage;
   endPage   = printDialog->ToPage;
  }
  else
  {
   startPage = 1;
   endPage   = TOTAL_PAGES;
  }
  // Установка номера начальной страницы
  page = startPage;
  // Продолжаем печатать пока всё OK
  while(!Printer()->Aborted && Printer()->Printing)
  {
   // Пишем номер страницы
   Printer()->Canvas->Font->Color = clBlue;
   Printer()->Canvas->TextOut(40,  20, "Номер страницы = "+IntToStr(page));
 
    // Увеличиваем номер страницы
    page++;
 
    // Теперь начинаем новую страницу - если она не последняя
    if(page <= endPage && !Printer()->Aborted)
     Printer()->NewPage();
   }
   // Конец печати
   Printer()->EndDoc();
 }
 delete printDialog;
}