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