全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3124
推到 Plurk!
推到 Facebook!

Quickrep列印頁數問題?

尚未結案
benson5033
一般會員


發表:44
回覆:47
積分:18
註冊:2004-08-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-24 10:46:37 IP:210.62.xxx.xxx 未訂閱
我想要在頁尾加上 「總頁數/頁數」,找了一下,試了 QuickRep1->QRPrinter->PageCount 但是一執行到這就有問題,不知為什麼?? 還是有別的辦法,請各位先進指導一下。
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-24 11:03:27 IP:61.70.xxx.xxx 未訂閱
您要得到總頁數嗎? QuickRep->Prepare(); QuickRep->PageNumber;//總頁數
benson5033
一般會員


發表:44
回覆:47
積分:18
註冊:2004-08-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-24 12:16:09 IP:210.62.xxx.xxx 未訂閱
引言: 您要得到總頁數嗎? QuickRep->Prepare(); QuickRep->PageNumber;//總頁數
總算可以了,感謝! 但一定要執行這一行嗎? QuickRep->Prepare(); 因為我用dbgrid來顯示資料,當執行到這一行後,dbgrid的游標 就會從頭跑到尾。這樣實在不太好看。
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-06-24 12:34:44 IP:61.70.xxx.xxx 未訂閱
您好: 是的,一定要那一行,Prepare就是說報表程式他一開始並不知道到底有幾頁,因此下Prepare就是讓他先去跑一次,得到總頁數,在我的報表裡我都不用這東西,因為太耗資源了,要印個報表等於是跑兩次的動作,可以找找站內的Prepare,以前有討論過. 至於不要讓DBGrid跑,可以下以下的程式. DBGrid1.Columns.BeginUpdate();//畫面暫停更新. Table.First();//游標跳到第一筆 DBGrid1.Columns.EndUpdate();//畫面更新.
benson5033
一般會員


發表:44
回覆:47
積分:18
註冊:2004-08-16

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-06-24 13:49:08 IP:210.62.xxx.xxx 未訂閱
引言: 您好: 是的,一定要那一行,Prepare就是說報表程式他一開始並不知道到底有幾頁,因此下Prepare就是讓他先去跑一次,得到總頁數,在我的報表裡我都不用這東西,因為太耗資源了,要印個報表等於是跑兩次的動作,可以找找站內的Prepare,以前有討論過. 至於不要讓DBGrid跑,可以下以下的程式. DBGrid1.Columns.BeginUpdate();//畫面暫停更新. Table.First();//游標跳到第一筆 DBGrid1.Columns.EndUpdate();//畫面更新.
請問下面的程式要加在那? 我試了好像不行 DBGrid1.Columns.BeginUpdate();//畫面暫停更新. Table.First();//游標跳到第一筆 DBGrid1.Columns.EndUpdate();//畫面更新.
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-06-24 18:55:43 IP:219.68.xxx.xxx 未訂閱
您好: 不行是哪裡不行請說清楚... DBGrid1->Columns->BeginUpdate();//畫面暫停更新. QuickRep->Prepare(); Table->First();//游標跳到第一筆 DBGrid1->Columns->EndUpdate();//畫面更新.
benson5033
一般會員


發表:44
回覆:47
積分:18
註冊:2004-08-16

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-06-27 09:50:58 IP:210.62.xxx.xxx 未訂閱
引言: 您好: 不行是哪裡不行請說清楚... DBGrid1->Columns->BeginUpdate();//畫面暫停更新. QuickRep->Prepare(); Table->First();//游標跳到第一筆 DBGrid1->Columns->EndUpdate();//畫面更新.
執行上面的程式後,DBGRID還是會從頭跑到尾,然後游標再移到第一筆。
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#8 引用回覆 回覆 發表時間:2005-06-27 11:04:02 IP:61.70.xxx.xxx 未訂閱
抱歉,我搞錯了,下面才對. DBGrid1->DisableControls();//畫面暫停更新. QuickRep->Prepare(); Table->First();//游標跳到第一筆 DBGrid1->EnableControls();//畫面更新.
系統時間:2024-11-21 19:30:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!