Composite로 QuickRep1(Title, ColumnHeader, Detail), QuickRep2(Title, ColumnHeader, Detail) 를 연결했을때, 결과물이 총 3Page일경우, QuickRep1의 Detail이 1/3이면 QuickRep2가 1/3에는 정상적으로 Title, ColumnHeader가 찍히는데, QuickRep1의 Detail이 길어서 2/3까지 출력되고, 2/3에 QuickRep2가 출력이될때에는 Title과 Detail부분만 출력됩니다. QuickRep2의 ColumnHeader는 출력이 안되고요...
뭐가 문제일까요? QuickReport 버그인가요???
procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);
begin
QRCompositeReport1.Reports.add(QuickRep1);
QRCompositeReport1.Reports.add(QuickRep2);
end;
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
MoreData := ii < 30;
end;
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
ii := 0;
end;
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRLabel5.Caption := inttostr(ii);
inc(ii);
end;
procedure TForm1.QuickRep2BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
jj := 0;
end;
procedure TForm1.QuickRep2NeedData(Sender: TObject; var MoreData: Boolean);
begin
MoreData := jj < 40;
end;
procedure TForm1.DetailBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRLabel6.Caption := inttostr(jj);
inc(jj);
end;
procedure TForm1.QuickRep2BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
self.QuickRep2.NewPage;
jj := 0;
end;
3.6.2 버젼에서 테스트 한 결과 정상적으로 출력됩니다..^^