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

[Bummi]

Hast Du mal ScaleX/Y "debuggt"
GetDeviceCaps sollte mit Printer.Handle aufgrufen werden

Image1.Picture.Graphic auf das Form.Canvas wird dargestellt?

[Andreas L.]

Printer.Handle war die Lösung. Danke Bummi

Delphi-Quellcode:

    ScaleX := GetDeviceCaps(Printer.Handle, logPixelsX) div PixelsPerInch;
    ScaleY := GetDeviceCaps(Printer.Handle, logPixelsY) div PixelsPerInch;

[himitsu]

Jupp, erstmal das falsche Handle (du verwendest das der Form)

Zitat von Bummi:

Hast Du mal ScaleX/Y "debuggt"

Ja, das solltest du mal machen ... Tipp, wie wäre es mit / und einem Double?