線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:939
推到 Plurk!
推到 Facebook!

套打加分拦打印

尚未結案
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-17 14:33:41 IP:61.171.xxx.xxx 未訂閱
把一个Query中的内容打印在A4上,该纸分成6大块,QLABEL是动态创建的,后一页的内容总是把前一页的内容覆盖掉的,但打到最后一页并没把6大块完全覆盖掉,而没覆盖掉的就是上一页的内容,请问怎么去掉上一页的内容???
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-19 20:31:13 IP:192.168.xxx.xxx 未訂閱
請問您用哪個控件打印 QuickReport 或是 TPrinter ? ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-10-20 09:53:20 IP:61.170.xxx.xxx 未訂閱
我用的是QuickReport打印的,请教?
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-10-20 12:51:49 IP:192.168.xxx.xxx 未訂閱
引言: 我用的是QuickReport打印的,请教?
NewPAge時可能要人工去清除QRLabel中的內容 ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-10-20 14:51:46 IP:61.170.xxx.xxx 未訂閱
在断点调试时发现NewPage时,之前会新建页,之后又会新建页,不知道我应该在何时去清除QLable中的内容?还有用什么函数来清除QLabel中的内容,我的QLabel是动态创建的
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-10-20 18:01:29 IP:192.168.xxx.xxx 未訂閱
引言: 在断点调试时发现NewPage时,之前会新建页,之后又会新建页,不知道我应该在何时去清除QLable中的内容?还有用什么函数来清除QLabel中的内容,我的QLabel是动态创建的
拉一個Band設為rbPageFooter 程式碼寫在AfterPrint 用TQuickReport.Components偵測 for i:=0 to QuickReport2.ComponentCount-1 do if QuickReport2.Components[i] is TQrLabel then (QuickReport2.Components[i] as TQrLabel) .caption:=''; ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-10-21 11:36:23 IP:61.171.xxx.xxx 未訂閱
for i:=0 to QuickReport2.ComponentCount-1 do if QuickReport2.Components[i] is TQrLabel then (QuickReport2.Components[i] as TQrLabel) .caption:=''; 此段代码根本就不能执行?
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-10-21 14:04:54 IP:61.171.xxx.xxx 未訂閱
受到启发,在Print后,在相应的位置重新动态再一次创建QLabel,把Caption:='';
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-10-22 12:02:22 IP:192.168.xxx.xxx 未訂閱
引言: for i:=0 to QuickReport2.ComponentCount-1 do if QuickReport2.Components[i] is TQrLabel then (QuickReport2.Components[i] as TQrLabel) .caption:=''; 此段代码根本就不能执行?
我試過可以執行的! 請問您執行的錯誤訊息為何? ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-10-23 10:10:45 IP:61.170.xxx.xxx 未訂閱
是根本就不去执行FOR循环里的语句,可能我的QLabel是动态创建的,对于QuickReport1.ComponentCount永远只是1吧
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-10-23 14:35:49 IP:61.170.xxx.xxx 未訂閱
改天贴代码
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-10-23 22:05:27 IP:192.168.xxx.xxx 未訂閱
引言: 改天贴代码
會不會您在創建QRLabel時 未指定Onwer與Parent? ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
SUNSEAVE
一般會員


發表:66
回覆:44
積分:22
註冊:2003-09-23

發送簡訊給我
#13 引用回覆 回覆 發表時間:2003-10-28 15:05:49 IP:61.170.xxx.xxx 未訂閱
定义过了Parent
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#14 引用回覆 回覆 發表時間:2003-10-28 19:45:46 IP:192.168.xxx.xxx 未訂閱
引言: 定义过了Parent
可否把您的程式完整上傳來給我看看? ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
系統時間:2024-05-16 11:47:38
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!