Imprimir imagen

[MAXIUM]

Hola, como puedo imprimir una imagen usando la API de Windows.
He probado con el siguiente código pero no sale con las dimensiones del dibujo, es decir muy en miniatura

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var Bitmap: TBitMap;
begin
     Bitmap:= TBitmap.Create;
     Bitmap.LoadFromFile('logo.bmp');
     
     Printer.BeginDoc;
     Printer.Canvas.Draw(100, 100, Bitmap);
     Printer.EndDoc;
     
     Bitmap.Free;
end;

[[cHackAll]]

Código Delphi [-]
 Printer.Canvas.CopyRect(Rect(0, 0, Printer.PageWidth, Printer.PageHeight), Bitmap.Canvas, Rect(0, 0, Bitmap.Width, Bitmap.Height));

[MAXIUM]

Funciono casi de maravillas ya que me ocupo casi toda la hoja, pero esos son solo detalles. Gracias.