Bild (TImage) drucken

[Andreas L.]

Hallo,

mit folgendem Code möchte ich ein TImage ausdrucken:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  ScaleX, ScaleY: Integer;
  RR: TRect;
begin
  Printer.BeginDoc;
  try
    ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
    ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
    RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
    Printer.Canvas.StretchDraw(RR, Image1.Picture.Graphic); // Picture.Bitmap habe ich es auch schon versucht
  finally
    Printer.EndDoc;
  end;
end;

Der Drucker reagiert, zieht ein Papier ein und schiebt es beim Ausgabe schlitz raus. Darauf ist nichts gedruckt. Wie kann ich das Bild drucken?

Drucker: Canon Pixma ip4300 - Andere Anwendung können problemlos drucken
OS: Windows Vista SP 2 + alle Hotfixes