QuickRep , Detail 資料有很多列時 要 如何換頁 ? |
|
答題得分者是：kadee
|
|
crlin
一般會員   發表：47 回覆：57 積分：20 註冊：2002-07-23 發送簡訊給我 |
|
|
kadee
高階會員  發表：11 回覆：141 積分：165 註冊：2002-03-20 發送簡訊給我 |
>我的一個 Group 中其 Detail 資料有 10 列
>但我希望 只印 8 列就換頁
1.將detailband高度拉到正好只印8列
2.在detailband.afterprint
if quickrep.recordcount mod 8 =0 then
quickrep.newpage;
>下一頁印完兩列後 再換頁印下一個Group
新加入1band，設為groupfoot,將group之footband指向它
groupfoot.afterprint
quickrep.newpage;
>請問我該如何做呢 ?? thanks ! Kadee_BigRed
------
Kadee/BigRed Ent. www.tw165.com |
|
crlin
一般會員 發表：47 回覆：57 積分：20 註冊：2002-07-23 發送簡訊給我 |
我照著 kadee 兄的說法這樣做了
但是好像沒用啊 !
10 列照樣印在同一頁上 請問 "將detailband高度拉到正好只印8列" 是什麼意思呢 ?
DetailBand 的高度改變, 每一個 row 的行距不就跟著變了 ? 以下是我的程式碼, 請問我是不是哪兒弄錯了呢 ? procedure TForm30.QRBand4AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
if (QuickRep2.RecordCount mod 8 = 0) then
begin
QuickRep2.NewPage;
end; end;
|
|
payne
初階會員 發表：1 回覆：40 積分：38 註冊：2002-04-19 發送簡訊給我 |
|
|
crlin
一般會員 發表：47 回覆：57 積分：20 註冊：2002-07-23 發送簡訊給我 |
|
|
kadee
高階會員 發表：11 回覆：141 積分：165 註冊：2002-03-20 發送簡訊給我 |
發表時間：2002-11-08 13:32:26
IP:211.22.xxx.xxx 未訂閱
系統時間：2024-04-20 21:05:37
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |