TQRGroup換頁問題 |
尚未結案
|
mygod
一般會員 發表:52 回覆:64 積分:23 註冊:2002-09-10 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
mygod
一般會員 發表:52 回覆:64 積分:23 註冊:2002-09-10 發送簡訊給我 |
if Query1.RecNo mod 5=0 then QRBand4.ForceNewPage:=True
若單獨使用是沒問題
可是在Group本身處理跳頁後再加上以上的方法就會有問題
如:
Group中我設定依據field1的不同會跳頁,
假設在某次跳頁時,RecNo為12,
接著print到RecNo為15時就會再跳頁,
可是我需要的是從12跳頁後,print13~17共5筆然後跳頁,
而不是13,14,15就跳頁 本來想用一個變數累加到5就跳頁並歸零,但是Group處理的跳頁應該也要讓此變數歸零才是,可是我無法抓到Group處理跳頁的timing,無法使此變數歸零, 請問chih兄,是否有解決的方法 oh~mygod
------
oh~mygod |
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
你設一各全域變數xx..
QRGroupBeforePrint時候xx:=0;..
DetailBandBeforePrint時候xx:=xx 1;..
DetailBandAfterPrint時候
if xx mod 10=0 then QRBand4.ForceNewPage:=True
else QRBand4.ForceNewPage:=False;
QRGroupAfterPrint時候xx:=0;..
試試看..我手邊沒有資料可以試...
有問題在POST吧...^^
|
mygod
一般會員 發表:52 回覆:64 積分:23 註冊:2002-09-10 發送簡訊給我 |
chih兄的方法沒問題,謝謝
不過我發現另外的問題,因為我需要Group haeder、Group Footer每頁都必須出現,所以我把Group Header的ReprintOnNewPage的屬性設true,
但是會造成每次跳頁都會產生一個空白頁,不知道該如何處理 而Group Footer是依據Group Header中的Expression的value不同才會出現,
無法在每次跳頁時出現, 請問是否可以在Group Header中的Expression中就控制每隔幾筆就跳頁呢?
Group Header中的Expression裡有個變數pagenumber,but不知有沒有用、又該如何使用?? 謝謝 oh~mygod
------
oh~mygod |
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
Group Header..
ReprintOnNewPage的屬性設false
再設一各全域變數=zz//zz是你要跳頁的欄位值
Group haederbeforePrint時判斷query1zz的值有沒有等於zz
有的話就
begin
ReprintOnNewPage的屬性設False
end
else
begin
ReprintOnNewPage的屬性設true
zz:=Query1zz.value;
end;
TRY TRY SEE...
引言: chih兄的方法沒問題,謝謝 不過我發現另外的問題,因為我需要Group haeder、Group Footer每頁都必須出現,所以我把Group Header的ReprintOnNewPage的屬性設true, 但是會造成每次跳頁都會產生一個空白頁,不知道該如何處理 而Group Footer是依據Group Header中的Expression的value不同才會出現, 無法在每次跳頁時出現, 請問是否可以在Group Header中的Expression中就控制每隔幾筆就跳頁呢? Group Header中的Expression裡有個變數pagenumber,but不知有沒有用、又該如何使用?? 謝謝 oh~mygod |
mygod
一般會員 發表:52 回覆:64 積分:23 註冊:2002-09-10 發送簡訊給我 |
chih兄,這方法我試過,是ok的,
因為我需要每頁都有一個header、footer將固定的幾筆資料包起來,才想到要用Group做,
因為pagefooter會固定在最下方,無法接續在該頁的最後一筆資料之後,所以就放棄pagefooter了, 換頁大致都沒問題了,
目前剩下的問題是,該如何讓footer每頁都出現呢??
footer又是根據Group Header的Expression才出現,
如果不用Group,又該如何在每頁都產生一個footer呢?? 麻煩您了... oh~mygod
------
oh~mygod |
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
既然你每一頁都需要印到...那我覺得還是用GroupFooter...把每頁要印的資料放在上面..這樣就可以每頁印到了..這樣應該會比較簡單...
拉一個QRBand..把BandType設為rbGroupFooter..
然後GroupHeader的屬性FooterBand要指向那個QRBand...
這樣就可以產生一個rbGroupFooter了..
TRY TRY SEE...
引言: chih兄,這方法我試過,是ok的, 因為我需要每頁都有一個header、footer將固定的幾筆資料包起來,才想到要用Group做, 因為pagefooter會固定在最下方,無法接續在該頁的最後一筆資料之後,所以就放棄pagefooter了, 換頁大致都沒問題了, 目前剩下的問題是,該如何讓footer每頁都出現呢?? footer又是根據Group Header的Expression才出現, 如果不用Group,又該如何在每頁都產生一個footer呢?? 麻煩您了... oh~mygod |
mygod
一般會員 發表:52 回覆:64 積分:23 註冊:2002-09-10 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
1.把你放在rbGroupFooter上面的QRDBText全部搬到rbDetail..
假設QRDBTex1,QRDBTex2,QRDBTex3
DetailBandBeforePrint時候
xx:=xx 1;
if xx mod 10=0 then
begin
QRDBText1.Enabled:=True;
QRDBText2.Enabled:=True;
QRDBText3.Enabled:=True;
end
else
begin
QRDBText1.Enabled:=False;
QRDBText2.Enabled:=False;
QRDBText3.Enabled:=False;
end;
TRY TRY SEE...^^
引言: rbGroupFooter在利用每10筆換頁時似乎不會出現, 除非是因為GroupHeader的value不同造成的換頁, rbGroupFooter才會出現, 該怎麼做,才可以讓不論是哪種換頁都出現rbGroupFooter?? 麻煩您了 oh~mygod |
mygod
一般會員 發表:52 回覆:64 積分:23 註冊:2002-09-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |