int x1,y1,x2,y2;
        int i,j;
        y1=400;
        y2=400;
        TPrinter *Prntr = Printer();
        Prntr->BeginDoc();
        Prntr->Canvas->Pen->Width=5;
        Prntr->Canvas->Font->Size=8;
        Prntr->Canvas->Font->Style.operator >>(fsNormal);

        int Nn=Prntr->PageWidth/(Form2->StringGrid1->Width-Form2->StringGrid1->DefaultColWidth);

        for (i=0;i<StringGrid1->RowCount;i++)
        {
                x1=200;
                x2=x1+StringGrid1->ColWidths[0]*Nn;
                y2=y2+StringGrid1->RowHeights[i]*Nn;
                for (j=0;j<7;j++)
                {
                        Prntr->Canvas->Rectangle(x1,y1,x2,y2);
                        Prntr->Canvas->TextOutA(x1+40,y1+40,StringGrid1->Cells[j][i]);
                        if (j!=7-1)
                        {
                                x1=x1+StringGrid1->ColWidths[j]*Nn;
                                x2=x2+StringGrid1->ColWidths[j+1]*Nn;
                        }
                }
                y1=y1+StringGrid1->RowHeights[i]*Nn;
                if(y1>(Prntr->PageHeight+100))
                {
                        Prntr->NewPage();
                        y1=400;
                        y2=400;
                }
        }
        Prntr->EndDoc();


печатает хорошо (таблицы помещаются)   , но таблицы пустые :(

немного объясню 
 Form2->StringGrid1->Width-Form2->StringGrid1->DefaultColWidth потому как в StringGrid на  одну ячейку больше чем надо на печати.

может кто заметит ошибку, я битый час маюсь ..

Попробывал  пример без переделок - все печатает.

Присоединённый файл ( Кол-во скачиваний: 12 )
 GridPrint.zip 43,87 Kb

А разрешение принтера какое стоит? я просто делал, чтоб 300х300 и 600х600 переваривало, пробовал на первом, выходят пустые таблицы.

Попробывал с разрешением 300х300. Таблицу со значениями печатает. Принтер HP LaserJet 1220 Series PCL.

а заказчик говорит не работает   
 я тестил на 600х600 ..пашет