Печать информации из DBGrid

void __fastcall TForm28::Button1Click(TObject *Sender)
{
if (DBGrid1->DataSource->DataSet->RecordCount<1) {
    return;
}
  int x=300,y=200;
  TPrintDialog *printDialog = new TPrintDialog(this);
  if(printDialog->Execute())
 {
 Printer()->BeginDoc();
 Printer()->Canvas->Font->Size=9;
 //Printer()->Canvas->Font->Pitch=fpFixed;
  DBGrid1->DataSource->DataSet->First();
  Printer()->Canvas->TextOut(x,y,"Отчет выполненых работ");
  y+=200;
   Printer()->Canvas->Font->Size=8;
  for (int i2 = 0; i2 < DBGrid1->Columns->Count; i2++) {
    Printer()->Canvas->TextOut(x,y,DBGrid1->Columns->Items[i2]->Title->Caption);
    x+=DBGrid1->Columns->Items[i2]->Width*6;
  }
     Printer()->Canvas->Font->Size=8;
   for (int i = 0; i < DBGrid1->DataSource->DataSet->RecordCount; i++) {
    for (int i2 = 0; i2 < DBGrid1->Columns->Count; i2++) {
        AnsiString text2,text= DBGrid1->DataSource->DataSet->FieldByName(DBGrid1->Columns->Items[i2]->FieldName)->AsAnsiString;
        int maxchar=50;
        if (i2==0) {
            Printer()->Canvas->Font->Style<<fsBold;
        }  else {
            Printer()->Canvas->Font->Style>>fsBold;
        }
        if (text.Length()>maxchar) {
            for (int i3 = 0; i3 < (text.Length()/maxchar+1); i3++)
            {
                text2=text.SubString((maxchar+1)*i3,maxchar);
                Printer()->Canvas->TextOut(x,y,text2);
                if (i3<(text.Length()/maxchar)) {
                 y+=200;
                }
            }
        } else {
            Printer()->Canvas->TextOut(x,y,text);
        }
 
        x+=DBGrid1->Columns->Items[i2]->Width*6;
    }
    y+=200;
    x=300;
    DBGrid1->DataSource->DataSet->Next();
    if (y>6700) {
     Printer()->NewPage();
     y=200;
    }
   }
 
 Printer()->EndDoc();
 }
}