Szia Gyula !

Viszont van egy jóval egyszerűbb és látványosabb megoldás:
A IMAGE1 képedet (miután betöltötted), másold be egy Quickreport QRIMage komponensébe.

Onnan aztán csak egyszerűen Quickrep1.Print és máris nyomtatásra kerül a kép.....

Üdv: Attila.

Szia Gyula !

A megoldás:

procedure TForm1.Button1Click(Sender: TObject);
var
X, Y: Integer;
RR: TRect;
begin
with Printer do
begin
BeginDoc;
X := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
Y := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
RR := Rect(0, 0, Image1.picture.Width * X, Image1.Picture.Height * Y);
Canvas.StretchDraw(RR, Image1.Picture.Graphic);
end;
end;

Üdv: Attila.