[請問]一QRTChart 多重列印問題 |
答題得分者是:Fishman
|
LEO_HSU
一般會員 發表:2 回覆:5 積分:1 註冊:2005-05-28 發送簡訊給我 |
Dear各位大大:
小弟想在一個QRChart上列印另一Form上的5個Chart圖,已嘗試在OnNeedData輸入下列程式碼卻無法在Preview中預覽與Print請問可否提供一解?Thanks !
void __fastcall TForm2::QuickRep1NeedData(TObject *Sender,bool &MoreData)
{
switch(Fomr1->CheckData())
{
case 1:
QRChart1->Chart->Serires[0]->DataSource = MainFrm->Chart1->Series[0]
MoreData = true;
case 2:
QRChart1->Chart->Serires[0]->DataSource = MainFrm->Chart2->Series[0]
MoreData = true;
case 3:
QRChart1->Chart->Serires[0]->DataSource = MainFrm->Chart3->Series[0]
MoreData = true;
case 4:
QRChart1->Chart->Serires[0]->DataSource = MainFrm->Chart4->Series[0]
MoreData = true;
case 5:
QRChart1->Chart->Serires[0]->DataSource = MainFrm->Chart5->Series[0]
MoreData = true;
case 0:
MoreData = false;
}
}
也就是在Preview中出現的Page都只有一頁,而未出現預期中應為1 of 5
各位大大可直回Delphi的解法,小弟會自行轉換Thanks ! 發表人 - LEO_HSU 於 2005/05/28 01:24:48
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi LEO_HSU,
1.首先定義一個全域變數 ... private { Private declarations } CurrentSeries : Integer; public ... 2.QuickReport 的 OnPrint 事件 Reset 該變數 procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin CurrentSeries := 0; end; 3.QuickReport 的 OnNeedData 事件 procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); begin MoreData := (CurrentSeries < Chart1.SeriesCount); if MoreData then begin QRChart1.Chart.Series[0].Assign(Chart1.Series[CurrentSeries]); end; Inc(CurrentSeries); end;---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman |
LEO_HSU
一般會員 發表:2 回覆:5 積分:1 註冊:2005-05-28 發送簡訊給我 |
|
LEO_HSU
一般會員 發表:2 回覆:5 積分:1 註冊:2005-05-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |