안녕하세요 델초보자입니다.
앞검색후 리포트로 출력하려고 합니다.
그런데 조건부분을 앞화면의 라벨로 필요해서 가지고 오려고 합니다.
그런데 에러가 납니다. 알려주세요 급합니다.
uses절 포함
procedure Tfrminoutreport.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
with frminreport do
begin
i := 0;
--> 전부에러 qrl_firstdate.Caption := frminreport.lbl_firstdate.Caption;
qrl_lastdate.Caption := frminreport.lbl_lastdate.Caption;
qrl_detail.Caption := frminreport.lbl_detail.Caption;
qrl_subdetail.Caption := frminreport.lbl_subdetail.Caption;
qrl_depart.Caption := frminreport.pnl_d_dept.Caption;
qrl_name.Caption := frminreport.pnl_d_name.Caption;
end;
end;
// Report폼을 Modal폼으로 생성
frmInOutReport := TfrmInOutReport.Create(Self);
// 이하 콤포넌트를 핸들링
frmInOutReport.qrl_firstdate.Caption := .lbl_firstdate.Caption;
frmInOutReport.qrl_lastdate.Caption := lbl_lastdate.Caption;
frmInOutReport.qrl_detail.Caption := lbl_detail.Caption;
frmInOutReport.qrl_subdetail.Caption := lbl_subdetail.Caption;
frmInOutReport.qrl_depart.Caption := pnl_d_dept.Caption;
frmInOutReport.qrl_name.Caption := pnl_d_name.Caption;
// Report폼 인쇄
frmInOutReport.QuickReport1.Print;
// Report폼 종료
frmInOutReport.Free;
전승헌 wrote:
> 안녕하세요 델초보자입니다.
> 앞검색후 리포트로 출력하려고 합니다.
> 그런데 조건부분을 앞화면의 라벨로 필요해서 가지고 오려고 합니다.
> 그런데 에러가 납니다. 알려주세요 급합니다.
> uses절 포함
>
> procedure Tfrminoutreport.QuickRep1BeforePrint(Sender: TCustomQuickRep;
> var PrintReport: Boolean);
> begin
> with frminreport do
> begin
> i := 0;
> --> 전부에러 qrl_firstdate.Caption := frminreport.lbl_firstdate.Caption;
> qrl_lastdate.Caption := frminreport.lbl_lastdate.Caption;
> qrl_detail.Caption := frminreport.lbl_detail.Caption;
> qrl_subdetail.Caption := frminreport.lbl_subdetail.Caption;
> qrl_depart.Caption := frminreport.pnl_d_dept.Caption;
> qrl_name.Caption := frminreport.pnl_d_name.Caption;
> end;
> end;
>