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

QuickRep 問題

缺席
css
一般會員


發表:24
回覆:17
積分:8
註冊:2006-08-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-03-07 21:39:42 IP:66.222.xxx.xxx 訂閱
// 例如 
Case RadioGroup1.ItemIndex of
0:begin // 點陣印表
BrotherReport_Form.BRF_QuickRep1.Page.PaperSize:=Letter;
BrotherReport_Form.BRF_QuickRep1.Page.Length :=279.40;
BrotherReport_Form.BRF_QuickRep1.Page.Width :=215.90;
BrotherReport_Form.BRF_QuickRep1.Page.BottomMargin:=5.0;
BrotherReport_Form.BRF_QuickRep1.Page.TopMargin:=5.0;
end;
1:begin // 雷射
BrotherReport_Form.BRF_QuickRep1.Page.PaperSize:=A4;
BrotherReport_Form.BRF_QuickRep1.Page.Length :=297.0;
BrotherReport_Form.BRF_QuickRep1.Page.Width :=210.0;
end;
else
BrotherReport_Form.BRF_QuickRep1.Page.PaperSize:=Default;
end;
請問我如何將 BrotherReport_Form.BRF_QuickRep1 (不同程式不同 BrotherReport_Form &BRF_QuickRep1)
寫一個公用程式
讓所有程式可去呼設定它,避免每支程式,都要寫下述程序

Case RadioGroup1.ItemIndex of
0:begin // 點陣印表
.............Page.PaperSize:=Letter;
.............Page.Length :=279.40;
.............Page.Width :=215.90;
.............Page.BottomMargin:=5.0;
.............Page.TopMargin:=5.0;
end;
1:begin // 雷射
.............Page.PaperSize:=A4;
.............Page.Length :=297.0;
.............Page.Width :=210.0;
end;
else
......................Page.PaperSize:=Default;
end;

.......... 是不一項 , page 其後面是一樣的


謝謝
編輯記錄
css 重新編輯於 2010-03-07 21:40:21, 註解 無‧
css 重新編輯於 2010-03-09 02:16:20, 註解 無‧
GrandRURU
站務副站長


發表:235
回覆:1655
積分:1753
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-03-11 14:17:10 IP:203.75.xxx.xxx 未訂閱
真是太不認真了!
解答都拉一半出來了,還給缺席評價!?

以下一星期沒回應就清掉了

===已清除===
編輯記錄
GrandRURU 重新編輯於 2010-03-11 14:18:19, 註解 無‧
GrandRURU 重新編輯於 2010-03-12 21:19:08, 註解 無‧
GrandRURU 重新編輯於 2010-03-12 21:20:19, 註解 無‧
GrandRURU 重新編輯於 2010-03-12 21:22:35, 註解 無‧
GrandRURU 重新編輯於 2010-03-30 19:50:48, 註解 超過一星期很久囉!哈‧
系統時間:2017-12-19 2:32:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!