gedruckte Grafik total verpixelt und verschwommen

[MW880729]

Hallo zusammen,

habe zwar nun geschafft, dass die Grafik gedruckt wird, was auch soweit ganz gut ist, jedoch ist die Grafik total verpixelt und verschwommen nach dem Druck. Die Bitmap datei ist allerdings in Ordnung.

Hier mal der Quellcode mit dem ich das Drucken leite:

Delphi-Quellcode:

procedure PrintImage(iLeft, iTop: integer; Img: TImage); 
var 
  GraphicRect: TRect; 
begin 
  iLeft := iLeft * 8;
  iTop := iTop * 8;
  ZeroMemory(@GraphicRect, SizeOf(GraphicRect));
  GraphicRect.Right:= Img.Picture.Graphic.Width;
  GraphicRect.Bottom:= Img.Picture.Graphic.Height;
  if Form2.PrintDialog1.Execute then
  begin
     printer.begindoc;
     printer.Canvas.CopyRect(Rect(iLeft, iTop, iLeft+ GraphicRect.Right* 10, iTop+ GraphicRect.Bottom* 10), Img.Canvas, GraphicRect);
     printer.enddoc;
  end;
end;

procedure TForm2.Button14Click(Sender: TObject);
begin
   Image1.Picture.loadfromfile(ExtractFilePath(Application.ExeName) + 'MyPic.bmp');
   PrintImage(200,20,image1);
end;

Kann mir jemand sagen, weshalb das so verpixelt und verschwommen gedruckt wird??

Danke schonmal!

Gruß,
Manu