Delphi - Canvas

Estoy utilizando el Método de Canvas para imprimir datos y fotografias de una base de datos, pero la foto que es .bmp imprime de un tamaño pequeño. ¿Cómo puedo manipularla para hacerla mas grande en la impresión? Gracias...Urgente!

Cuando vayas a imprimir un .BMP usa este código.

var
MiClipRect:TRect;
begin
MiclipRect.Left:=0;
MiClipRect.Top:=0;
MiClipRect.Right:=Image1.Width*5;
MiClipRect.Bottom:=Image1.Height*5;
Printer.BeginDoc;
Printer.Canvas.StretchDraw(MiClipRect, Image1.Picture.Bitmap);
Printer.EndDoc;
end;

Cambia los objetos que creas necesarios siempre que sean del mismo tipo.
Fue uno de mis primeros problemas al usar Delphi :)

Hola Diego; Muchas gracias por tu ayuda, que me ha servido de mucho. Pasé tu código a una nueva forma y funcionó de maravilla, pero cuando lo pasé a mi codigo que debe ser en una línea como la siguiente:

StretchDraw((fot+((CNTC-1)*2253)),(linea+((CNTF-1)*1450 +300)),MiClipRect,Image6.Picture.BitMap);

me marca errores de que no son del mismo tipo TRect and Integer, TGraphic and Integer.

Estoy utilizando un campo Graphic, y creo que el error es porque utilizo coordenadas ya que debo imprimir varias imagenes en una hoja.

Como podría Solucionar ésto? Muchas Gracias... atte:gaby

StretchDraw solo tiene dos parametros, en lo que me dices usas cuatro, el TRect es una estructura que le indica un tamaño rectangular, si lo que quieres es calcular ese rectangulo debes modificar los campos del TRect.
TRect está definido como
type
TRect = packedrecord
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);
end;
por lo que hay dos formas de hacerlo una sería
MiClipRect.Left:=0;
MiClipRect.Top:=0;
MiClipRect.Rigth:=fot+((CNTC-1)*2253;
MiClipRect.Bottom:=linea+((CNTF-1)*1450+300;
o cosa parecida.
Sospecho que quieres imprimir varias imagenes en diferentes lugares de la página por tanto deberías varias el Top y el Left también.