이재광 wrote:

> 안녕하세요 고수님들 더운데 수고가 많으십니다.

>

> 지금 TPrinter를 이용해서 출력을 하려고 하는데 (퀵리포트는 제약이 많아서)

>

> 텍스트의 출력이나 도형그리기 등은 출력이 잘되는데 그림 이미지를 출력하려면

>

> 쉽지 않네요. 자세히 나와 있는 책도 없고요.

>

> 아무쪼록 방법이 있으면 많은 사사 바랍니다. 꼭좀.

>

> 계속 열쉬미 수고 하세요.

-------------------------------

질문하신것에 대한 답변이 될지 모르겠지만요. 도움이되심 좋겠심데.

(어느 책에서 발췌한 것임)

var

r : TRect;

b : TBitMap;

begin

b := Tbitmap.Create();

if OpenPictureDialog1.Execute then begin

b.LoadFromFile(OpenPictureDialog1.FileName);

r.Left := 100; r.Top := 300; r.Right := 300; r.Bottom := 500;

Image1.Picture.Bitmap := b;

end;



with Printer do begin

BeginDoc();

// Canvas.Draw(100, 100, Image1.Picture.Bitmap);

Canvas.StretchDraw(r, b);

EndDoc();

end;

end;

즐코하세예..