안녕하세요...

다음 같은 사항이 있어 자문을 구합니다.

비트맵 이미지를 2개를 동적 생성후 인쇄하려고 하는데



인쇄가 처음 생성한 이미지만을 인쇄합니다.



문제가 몬지 모르겠군요 ..@#@$#%??



인쇄 순서는 상관없이 처음 생성시킨것만 인쇄되고

나중 생성된 이미지는 draw 명령 실행후 소멸 되고 인쇄는 안됩니다.

( 이미지 로딩은 정상적으로 되구요 : 화면에 나타났다 사라짐...)



밑은 제가 이미지 테스트를 하려고 한 소스입니다.

원 프로그램은 박스도 그리고 기타 자질구래한 데이타를 넣는데

그 프로그램은 이미지 두개가 모두 인쇄가 안됩니다. (-_-;)

...............................................

....................소스.......................

...............................................





procedure TForm1.BitBtn1Click(Sender: TObject);

var

i:integer;

temp_lot, sign:string;

Hanimg, SignImg : TImage;

begin



signImg := TImage.Create(form1);

with SignImg do begin

Parent := form1;

Top := 10;

Left := 10;

AutoSize := True;

end;



HanImg := TImage.Create(form1);

with HanImg do begin

Parent := form1;

Top := 50 ;

Left := 50;

AutoSize := True;

Picture.LoadFromFile('로고.bmp');

end;





// 서명 파일을 부르기 위한 변수 sign

sign := '이미지1.bmp';

SignImg.Picture.LoadFromFile(Sign);

end;



printer.begindoc;

with printer.canvas do begin

try

draw(23*80-20,38*80+10,SignImg.picture.graphic);

draw(21*80,5*80,HanImg.picture.graphic);

finally

SignImg.free;

Hanimg.free;

end;



textout(2*80,40*80,'이미지 인쇄 연습 ');

printer.enddoc;

end;



end;