Form1 출력루틴이 있는폼. form2리포트가 있는폼일경우
Form1에 컴포지트를 올려놓고 Form2의 QuickRep1, QuickRep2를 호출하였습니다..
근데... 근데... ㅠ.ㅜ
이렇게도 해보고 저렇게도 해봐도..
뒷장만 나오구.. 첫째장은 안나와염... ㅠ.ㅜ
누구 해결방법 아시는분~~~~~~~~~~~
제발점 갈켜주세염...
form1에 해당하는 소스..
procedure TfrmMnuF1_2.BitBtn4Click(Sender: TObject);
begin
QRCompositeReport1.Preview;
end;
procedure TfrmMnuF1_2.QRCompositeReport1AddReports(Sender: TObject);
begin
frmMnuf1_2BPrt := TfrmMnuf1_2BPrt.Create(self);
with QRCompositeReport1 do
begin
Reports.add(frmMnuf1_2BPrt.QuickRep1);
Reports.add(frmMnuf1_2BPrt.QuickRep2);
end;
end;
1) form1 에서는 form2 만 아래와 같이 띄우고........
-------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1 := TForm1.Create(Self);
end;
2)form2 에 QRCompositeReport 를 올려놓고 QRCompositeReport의 오브젝트 OnaddReport 에 는 아래와 같이 리포트만 넣어주고.........
-------------------------------
procedure TForm2.QRCompositeReport1AddReports(Sender: TObject);
begin
Reports.add(QuickRep1);
Reports.add(QuickRep2);
end;
3) FormCreate 에
-------------------------------
try
with QRCompositeReport1 do
begin
~~~~~~~~~~~~
end;
end;
QRCompositeReport1.Preview;
finally
QRCompositeReport1.Free;
end;
이렇게 코딩하면 됩니다.
QRCompositeReport 에 대한 메뉴얼도 없고 QRCompositeReport 자체가
좀 허접하다고 생각합니다. 출력된다고 해도 페이지 설정, 헤드 기타 여러가지 문제가 발생할 겁니다. 저도 아직 해결책을 찾지 못하고 있는데 ,,,