Q&A

  • QuickReport Composite로 연결시 출력문제..
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;
1  COMMENTS
  • Profile
    nilriri™ 2007.11.01 00:14
    3.5.x  이하 버젼에서의 버그인듯 합니다.

    procedure TForm1.QuickRep2BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    begin
          self.QuickRep2.NewPage;
          jj := 0;
    end;

    3.6.2 버젼에서 테스트 한 결과 정상적으로 출력됩니다..^^