Grafik drucken mit Printer.Canvas

[bitsetter]

und hiermit?

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrintImage(50,30,image1);
end;

EDIT: vorher müsstest du natürlich noch das Bild in das Image laden.