Imprimir Tiamge

[rex]

Uitlizo esto

Código Delphi [-]
with Printer do
 begin
  SetMapMode(Printer.Handle,MM_LOMETRIC);
   BeginDoc;  { start printing }
   Canvas.Draw(0, 0, img.Picture.Graphic);  { draw Image at top left corner of printed page }
   EndDoc;  { finish printing }
 end;

Pero la imagen impresa la tengo que ver con lupa por que sale demasiado pequeña. Hay alguna forma de agrandar la imagen utilizando Printer??

Tambien ya probe imprimiendo el formulario con esto

Código Delphi [-]
Self.Color := clWhite;
   Self.Button1.Visible := False;
   Self.BorderStyle := bsNone;
   bi := Self.BorderIcons;
   Self.BorderIcons := [];
 
   // Desativar Autiosize
   Self.Image1.AutoSize := False;
   // Probamos a cambiar el tamaño
   Self.Image1.Height := 100;
   Self.Image1.Width := 300;
 
   // Imprimir
   Self.Print;
 
   // Activar Autosize de nuevo
   Self.Image1.AutoSize := True;
   // Despues de imprimir....
   Self.BorderIcons := bi;
   Self.BorderStyle := bsSizeable;
   Self.Button1.Visible := True;
   Self.Color := clBtnFace;

Pero esto no me sirve.

De antemano les agradezco su ayuda

[kalisto]

Usa CopyRect.
Permite copiar en un Tcanvas parte o toda una imagen con el tamaño de destino que tu quieras.

[rex]

Gracias voy a probarlo a ver que tal me funciona. Al parecer me va a servir, ahora, por lo que veo mandas las coordenada del left, top, rigth y bottom, asi al vuelo me pregunto, yo tengo un TImage, hay alguna funcion para sacar estas coordenadas de la imagen Jpg que estoy mostrando en el TImage?? Ya que la imagen puede ser mas pequeña que el TImage ya que yo no puedo usar la propiedad stretch, necesito las imagenes en tamaño original, por lo que el tamaño varia totalmente