[kot_]

Или, используй TPrinter+TCanvas - если хочется все сделать самому. На канве рисуешь предпросмотр -на принтере печатаешь. Например так

TCanvas *pCanvas = Prn->Canvas;
 int PosVert = Vert,PosGor = 0;
  pCanvas->Brush->Color = clWhite;
   pCanvas->Font->Size = 14;
  pCanvas->Font->Color = clBlack;
  pCanvas->Font->Style=TFontStyles()<< fsBold;
  if(PosVert >= (Prn->PageHeight-BottomWidth)){
   Prn->NewPage();
   PosVert = TopWidth;
  }
  AnsiString String = InvoiceIn.GetName()+" № "+InvoiceIn.GetCode();
  if(Vert==0)PosVert = TopWidth;
  PosGor = Prn->PageWidth/2;
  PosGor -= (pCanvas->TextWidth(String)/2);

  pCanvas->TextOutA(PosGor,PosVert,String);
  if(PosVert >= (Prn->PageHeight-BottomWidth)){
   Prn->NewPage();
   PosVert = TopWidth;
  }
  PosVert += pCanvas->TextHeight(InvoiceIn.GetName()+" № "+InvoiceIn.GetName());
  pCanvas->Font->Size = 12;
  if(PosVert >= (Prn->PageHeight-BottomWidth)){
   Prn->NewPage();
   PosVert = TopWidth;
  }
  PosVert += (pCanvas->TextHeight(String)*2);

  String = "Дата: " + InvoiceIn.GetDate();
  PosGor = Prn->PageWidth/2;
  PosGor -= (pCanvas->TextWidth(String)/2);
  pCanvas->TextOutA(PosGor,PosVert,String);
  pCanvas->Font->Size = 10;
  if(PosVert >= (Prn->PageHeight-BottomWidth)){
   Prn->NewPage();
   PosVert = TopWidth;
  }
....
//И так далее.