Quick Report Column(纵列）太多 如何換頁?(修正版) |
|
尚未結案
|
|
bluejava_hz
一般會員   發表：1 回覆：1 積分：0 註冊：2004-10-13 發送簡訊給我 |
我的一個 Group 中其 Detail 資料有 20 列(纵列）
但我希望 只印 10 列就換頁,下一頁印完兩列後 再換頁印下一個Group
請問我該如何做呢 ?? thanks !
举例：将report1 拆成report2 和 repot3
report1: column1 | column2 | ... | column20
-----------------------------------
value1 | value2 |... |value20
----------------------------------- ＝
........|..........|.....|.......
-----------------------------------
===================================
report2: column1 | column2 | ... | column10
-----------------------------------
value1 |value2 |... |value10
----------------------------------- ＋
........|.........|.....|.......
-----------------------------------
=====================================
report3: column11 | column12 | ... | column20
-----------------------------------
value11 |value12 |... |value20
-----------------------------------
.........|..........|.....|.......
----------------------------------- 發表人 - bluejava_hz 於 2004/11/15 10:44:42
|
|
change.jian
版主  發表：29 回覆：620 積分：439 註冊：2003-06-02 發送簡訊給我 |
|
|
tonytop
中階會員 發表：6 回覆：114 積分：89 註冊：2003-12-04 發送簡訊給我 |
private //宣告變數
iDetailCount:Integer; procedure TForm1.QRGroup1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
iDetailCount:=0; //列數計數歸零
end; procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
Inc(iDetailCount);
//超過八列且還有資料要印才換新頁，
//才不會印出空白紙
if (iDetailCount > 8)and(not Query1.Eof) then
QuickRep1.NewPage;
end;
|
|
bluejava_hz
一般會員 發表：1 回覆：1 積分：0 註冊：2004-10-13 發送簡訊給我 |
|
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
發表時間：2004-11-15 09:29:28
IP:218.75.xxx.xxx 未訂閱
系統時間：2024-04-27 9:45:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |