Q&A

  • 퀵리포트에서 스트링그리드 출력..
3개의 스트링그리드의 데이터를 퀵리포트를 이용하여 데이터를 출력하고자 합니다.

첫번째 스트링 그리드는 onNeedData를 이용해서.출력을 했는데.

2번째.3번째. 남은 스트링그리드에서 문제가 되네요.

subDetail에서도 onNeedData 가 있어서 출력을 할려고..하니..

첫번
2  COMMENTS
  • Profile
    Marek 2006.04.16 23:25
    안녕하세요. Marek입니다.

    QRCompositionReport를 사용하시면 3개의 스트링그리드를 연결해서 프린트할수 있습니다.

    예)  아래는 6개의 QuickReport를 연결한 예제입니다.

    // 프린트에 앞서 제목을 출력합니다.(QuickReport 1번에 코딩하지요.)
    procedure TfrmTaskPrint.QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    begin

       QuickRep1.ReportTitle := '일일 근무활동 계획서';

       qlblUser.Caption := Trim(Copy(frmMain.cboDept.Text, 1, 20)) + '  ' +
                        Trim(Copy(frmMain.cboUserName.Text, 1, 20)) ;
       qlblDate.Caption := DateToStr(frmMain.dtTaskDate.Date)+ ' ('+frmMain.lblDay.Caption+'요일)';
                                                          
    end;

    //6개의 QuickReport를 QRCompositeReport로 묶습니다.
    procedure TfrmTaskPrint.QRCompositeReport1AddReports(Sender: TObject);
    begin
       QRCompositeReport1.Reports.Add(QuickRep1);
       QRCompositeReport1.Reports.Add(QuickRep2);
       QRCompositeReport1.Reports.Add(QuickRep3);
       QRCompositeReport1.Reports.Add(QuickRep4);
       QRCompositeReport1.Reports.Add(QuickRep5);
       QRCompositeReport1.Reports.Add(QuickRep6);
       QRCompositeReport1.Reports.Add(QuickRep7);
       QRCompositeReport1.Reports.Add(QuickRep8);
    end;

    즐건 하루 되세요..


  • Profile
    홍성호 2006.04.17 07:28
    감사합니다...^^