TRect r;
int l, t, w, h;
// разрешение в точках/см
const int dpcmScreen = Screen->PixelsPerInch / 2.54;
const int dpcmPrinter = GetDeviceCaps (Printer()->Handle, LOGPIXELSX) / 2.54; l = Edit1->Text.ToInt();
t = Edit2->Text.ToInt();
w = Edit3->Text.ToInt();
h = Edit4->Text.ToInt();
r = Rect(l * dpcmScreen, t * dpcmScreen, w * dpcmScreen, h * dpcmScreen);
// рисуем на имейдже
MyPaint(Image1->Canvas, r);
// выводим на печать
r = Rect(l * dpcmPrinter, t * dpcmPrinter, w * dpcmPrinter, h * dpcmPrinter);
Printer()->BeginDoc();
MyPaint(Printer()->Canvas, r);
Printer()->EndDoc();