안녕하세요?



QRPreview를 이용하여 미리보기폼을 만들고 있습니다.



먼저 form1에 QRPreview를 올려놓고 아래의 프로시져를 만들었습니다.



procedure TfrmSHSINGLEU.CustomPrint (Sender: TObject);

begin

preview.QRPrinter := TQRPrinter(Sender);

end;



그리고 form2 에 QuciRep를 올려놓고 onPreview이벤트에 아래처럼 코딩했습니다.



procedure TprintF1.QuickRep1Preview(Sender: TObject);

begin

QuickRep1.OnPreview := frmSHSINGLEU.CustomPrint ;

QuickRep1.Preview;

QuickRep1.OnPreview := nil;

end;



그리고 form1 에서 아래처럼 코딩해서 리포트를 호출했죠



procedure TfrmSHSINGLEU.BitBtn1Click(Sender: TObject);

begin

form1 := TForm1.Create (application);

form1.QuickRep1.Preview ;

end;



그런데 미리보기는 잘돼는데 form1을 종료하려고 하면 아래처럼 에러가 발생합니다.



''' raised Exception class EQRError with message 'QRPrinter Not Ready' '''''



왜 문제가 발생하는지 알 수가 없습니다.



급합니다. 도와주세요..