Этот код работает , печатает форму!:

  if (dlgPrint->Execute())
  {
     TPrinter *Prntr=Printer();
     Prntr->BeginDoc();
     Form1->PaintTo(Prntr->Handle, 0, 0);
     Prntr->EndDoc();
  }

Но непонятно, как картинку формы растягивать на весь лист?