Hola!Yo lo hago de la siguiente manera:
//Defino un rectángulo de las medidas que quiero y ajusto el bitmap a ese rectángulo:
TRect rgrafica=Rect(Xograf,Yograf,Xfgraf,Yfgraf);
try {
if (VentanaEspectros->PrintDialog1->Execute()) {
Printer()->BeginDoc();
Printer()->Canvas->Pen->Width=1;
Printer()->Canvas->StretchDraw(rgrafica,Image1->Picture->Bitmap);
Printer->EndDoc();
}
catch(...)
{
return;
}
return;
Si no utilizas el StretchDraw, imprimirá la gráfica del tamaño que tiene originalmente en el Form.