PowerBuilder中实现数据窗口打印预览通用方法.pdfVIP

PowerBuilder 中實現數據窗口打印預覽通用方法 2000-08-31 11:42 :19 我們在文字處理過程 ﹐常常在打印前要預覽 ﹐以便控制打印效果 ﹐特別在數據打印中要 有選擇地打印頁面﹐更需要預覽。PowerBuilder 提供了程序開發過程 的數據打印預覽 ﹐下面 介紹在程序應用 實現打印預覽通用方法。主窗口示意圖如下﹕ 打印預覽窗口 預覽尺寸 自定義 30% 50% 100% 200% 標尺 此主题相关图片如下： 一﹑上述W_preview 窗口 各控件說明﹕ 1. 命令按鈕控件(CommandButton) Cb_1 : 用于數據窗口翻至首頁。 Cb_2 : 用于數據窗口向上翻頁。 Cb_3 : 用于數據窗口向下翻頁。 Cb_4 : 用于數據窗口翻至尾頁。 Cb_5 : 用于關閉打印預覽數據窗口。 2 ﹒ 選框控件(CheckBox) Cbx_ 1:用于為預覽數據窗口添加顯示標尺。 3 ﹒掩碼編輯器控件(EditMask) Em_ 1:用于顯示和改變打印預覽的相對比例。 4 ﹒成組框控件 〔GroupBox〕 Gb_1:用于顯示一組控件的共同屬性信息。 5 ﹒收音機按鈕控件 〔RadioButton 〕 Rb_1:用于用戶自定義打印預覽顯示比例。 Rb_2:用于用戶設置打印預覽顯示比例為30%。 Rb_3:用于用戶設置打印預覽顯示比例為50%。 Rb_4:用于用戶設置打印預覽顯示比例為100%。 Rb_5:用于用戶設置打印預覽顯示比例為200%。 6 ﹒數據窗口控件〔DataWindow〕 dw_ 1:用于顯示打印預覽結果。 二﹑下面講述創建上述窗口的實現過程﹕ 1 ﹒創建一個新窗口 W_ preview,設置該窗口的類型(WindowType)為 Response,設置窗口的 標題(Title)為 打印預覽窗口。 2 ﹒在主窗口 按示意圖放置各個控件﹐為掩碼編輯器〔Em_1 〕定義屬性,在 General 頁中定 義 Text 為 100” ﹐在Mask 頁 為 Mask 定義為 ###” ﹐選 Spin Control, 設置 Spin Increment 為 1” ﹐設置Spin Range 的Min 為 1”﹑Max 為 200”。 3 ﹒為窗口創建結構 s_ preview, 具體步驟是 ﹕在PowerBar 工具欄 點取結構畫筆 〔Structure〕,在 選擇結構〔Select Structure〕”對話框 單擊 New按鈕,進入結構定義窗 口,在結構成員名〔Variable Name〕 輸入 dw_ name,在結構類型〔Type〕中選擇 String, 以 s_ preview為對象名保存此結構。 4 ﹒為窗口w_preview 定義Open 事件程序如下﹕ s_preview preview_parm preview_ parm=Message.Powero b j e c tparm dw_ 1.Datao b j e c t=preview_ parm.dw_name dw_ 1.Settranso b j e c t(SQLCA) dw_ 1.Objectwindow.Print.Preview= yes 5 ﹒為掩碼編輯器〔Em_1 〕定義二個用戶事件 〔User Events 〕﹐二事件名稱為user_change 和 user_room, 事件 user_change 的事件標識為 pbm_enchange,它是在編輯器值發生改 變時觸發﹐事件user_room 的事件標識為pbm_custom01,它是在用戶調用TriggerEvent() 函數時觸發 ﹐下面介紹這二事件的程序。 user_change 事件程序如下﹕ IF Integer(This.Text)0 And Integer(This.Text)=200 T HEN Dw_ 1.Object.Datawindow.Print.Preview.Zoom=Integer(This.Text) END IF Rb_1 .Checked=True user_room 事件程序如下﹕ IF Integer(This.Text)0 And Integer(This.Text)=200 T HEN Dw_ 1.Object.Datawindow.Print.Preview.Zoom=Integer(This.Text) END IF 6.收音機按鈕Rb_2 的Clicked 事件程序如下: Em_ 1.Text= 30” Em_ 1.TriggerEvent(user_ room)