【問題】Qrchart 如果有3頁,我要讓它在尚未列印前,也就報表頁!也讓 chart顯示三頁 |
尚未結案
|
seedbcc
高階會員 ![]() ![]() ![]() ![]() 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
要如何設定
我的code,畫面出來後,三頁都是最後一頁??
unit URpt_Chart; .. type TRpt_Chart = class(TRpt_QRReportBase) .. chart_U_ControlChart: TQRChart; private { Private declarations } ... FU_DrawChart:TCustomChart; .. public procedure ProcessArgs(const Args:array of Variant);override; ... procedure TRpt_Chart.ProcessArgs(const Args: array of Variant); begin Int_Page:=1; FU_DrawChart:=TCustomChart(Integer(Args[4])); if Assigned(FU_DrawChart) then begin chart_U_ControlChart.SetChart(FU_DrawChart); end; end; procedure TRpt_PhChart.qrsd_ChartBeforePrint( Sender: TQRCustomBand; var PrintBand: Boolean); begin inherited; if Int_Page<=FChartTable.FieldByName('Pages').AsInteger then begin chart_U_ControlChart.Chart.Page:=FChartTable.FieldByName Int_Page:=Int_Page 1; end;由下方這一支程式 進入上述報表 procedure TFrm_Chart.Btn_PrintClick(Sender: TObject); begin inherited; Frm_Main.CallOutReport(Self, IntToStr(FPlugMenuItem.ItemID), FFileName, [Integer(mt_filedata), Integer(mt_EmailAlarm_log), Integer(mt_filedata), Integer(mt_ChartData), Integer(Chart_Up), Integer(Chart_Down), Integer(mt_UniMeasure), tmpdt_DateStart, tmpdt_DateEnd]); end |
Fishman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi seedbcc, 試試看這樣:
procedure TRpt_PhChart.qrsd_ChartBeforePrint( Sender: TQRCustomBand; var PrintBand: Boolean); begin inherited; if Int_Page<=FChartTable.FieldByName('Pages').AsInteger then begin chart_U_ControlChart.Chart.Page:=Int_Page; Int_Page:=Int_Page 1; end;
------
Fishman |
seedbcc
高階會員 ![]() ![]() ![]() ![]() 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |