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