TPrinter *Prntr=Printer();


int i,j,len;

TRect r = Rect(150,150,Prntr->PageWidth - 150,Prntr->PageHeight- 150);
Prntr->BeginDoc();

len=0;
Prntr->Canvas->TextOut(200,200 +
(len*(Prntr->Canvas->TextHeight(StringGrid1->Cells[0][0])+10)),
koll[5]
+Form1->mof[ListBox1->ItemIndex]+" "+IntToStr(ListBox2->ItemIndex+Form1->start_year)+" - "
+Form1->mof[ListBox3->ItemIndex]+" "+IntToStr(ListBox4->ItemIndex+Form1->start_year)+" ]");

len++;
len++;
Prntr->Canvas->TextOut(200,200 +
(len*(Prntr->Canvas->TextHeight(StringGrid1->Cells[0][0])+10)),
koll[6]);

len++;
len++;
for( i = 1; i < StringGrid1->RowCount; i++)
{
Prntr->Canvas->TextOut(200,200 +
(len * (Prntr->Canvas->TextHeight(StringGrid1->Cells[0] )+10)),
StringGrid1->Cells[0]+" - "+StringGrid1->Cells[1]+" - "+StringGrid1->Cells[2]+" - "+StringGrid1->Cells[3]+" - "+StringGrid1->Cells[4]);
len++;
}


Prntr->Canvas->Brush->Color = clBlack;
Prntr->Canvas->FrameRect(r);
Prntr->EndDoc();

delete Prntr;









первая печать проходит на ура, а при второй и последующих вместо текста все заливает черным цветом