정 께서 말씀하시기를...

> QRCompositeReport을 사용해서 한번 출력버튼을 클릭하게 되면

> 2가지 양식의 리포트를 인쇄해야 합니다.

>

> //**************************************************

> QRCompositeReport1.add(form1.QuickRep1);

> QRCompositeReport1.add(form2.QuickRep1);

>

> form1 := Tform1.create(self);

> form2 := Tform2.create(self);

>

> QRCompositeReport1.Preview;

> ****************************************************//

> 위와 같이 처리를 하면 미리보기는 데이타가 문제 없이

> Display되지만 2장 이상을 인쇄할 경우 두번째 장부터는

> Data가 Display되는 부분이 까맣게 보여집니다.

> 원인이 뭔지 도대체 알 수가 없어서

> 도와주세요

>

>



아래와 같이 해보니 출력이되네요.(처음 해보았기에 미비해도 양해를..)



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, QuickRpt;



type

TForm1 = class(TForm)

QRCompositeReport1: TQRCompositeReport;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure QRCompositeReport1AddReports(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



uses unit2, unit3;

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

Form2 := TForm2.Create(Self);

Form3 := TForm3.Create(Self);

try

QRCompositeReport1.Preview ;

finally

Form2.Free;

Form3.Free;

end;

end;



procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);

begin

QRCompositeReport1.Reports.Add(Form2.QuickRep1);

QRCompositeReport1.Reports.Add(Form3.QuickRep1);

end;



end.