и снова печатаем.. :)

float dpiX, dpiY; // разрешение принтера по X и Y
float kx, ky; // коэф. пересчета координат экрана
// в координаты принтера по X и Y
// таблица
int p[5]; // позиции колонок
int x1,y1,x2,y2; // границы таблицы
int px, py, lf, tp; // указатель точки вывода
int i, j, z;
 
 
#define LEFT_MARGIN 1.5 // отступ слева 2 см
#define TOP_MARGIN 1.5 // отступ сверху 2 см
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
 TPrinter *Prn; // принтер
 
if (PrintDialog1->Execute())   // щелчок на кнопке Печать
  ProgressBar1->Visible = true;
 
/* Разрешение экрана и принтера разное,
поэтому чтобы добиться соответствия
размеров изображения на экране и принтере,•
координаты точек экрана надо преобразовать
з координаты принтера, умножить на коэф.,
значение которого зависит от разрешения принтера.
Например, если разрешение принтера 300 dpi,
то значение коэффициента равно 3.125, т. к.
разрешение экрана - 96 dpi */
Prn = Printer();
/* ф-я GetDeviceCaps позволяет получить характеристики
устройства. LOGPIXELSX - кол-во пикселов на дюйм по X
 */
dpiX = GetDeviceCaps(Prn->Handle,LOGPIXELSX);
dpiY = GetDeviceCaps(Prn->Handle,LOGPIXELSY);
 
kx = dpiX / Screen->PixelsPerInch;
ky = dpiY / Screen->PixelsPerInch;
 
px = LEFT_MARGIN / 2.54 * dpiX;
py = TOP_MARGIN / 2.54 * dpiY;
lf = px;
tp = py;
// вычислим "принтерные" координаты колонок таблицы
p[0] = px;
for (i = 1; i < 5; i++ )
p[i] = p[i-1] + StringGrid1->ColWidths[i-1]* kx + i;
 
Prn->BeginDoc(); // открыть печать
 ProgressBar1->Position = 10;
 
Prn->Canvas->Font->Name = Label1->Font->Name;
Prn->Canvas->Font->Size = Label1->Font->Size;
Prn->Canvas->TextOut(px,py,Label1->Caption);
 ProgressBar1->Position = 20;
 
//Label 2
 px =  px + (Label1->Width * kx);
Prn->Canvas->Font->Name = Label2->Font->Name;
Prn->Canvas->Font->Size = Label2->Font->Size;
Prn->Canvas->TextOut(px,py,Label2->Caption);
                          ProgressBar1->Position = 30;
 
//Label 7
px = lf + (Label1->Width * kx) + (Label2->Width * kx) + 10;
py = tp + 25;
Prn->Canvas->Font->Name = Label7->Font->Name;
Prn->Canvas->Font->Size = Label7->Font->Size;
Prn->Canvas->Font->Style = Label7->Font->Style;
Prn->Canvas->TextOut(px,py,Label7->Caption);
ProgressBar1->Position = 40;