|
我們?cè)谖淖痔幚磉^程中，常常在打印前要預(yù)覽，以便控制打印效果，特別在數(shù)據(jù)打印中要有選擇地打印頁面，更需要預(yù)覽。PowerBuilder提供了程序開發(fā)過程中的數(shù)據(jù)打印預(yù)覽，下面介紹在程序應(yīng)用中實(shí)現(xiàn)打印預(yù)覽通用方法。主窗口示意圖如下：
打印預(yù)覽窗口
預(yù)覽尺寸
自定義 30% 50% 100% 200% 標(biāo)尺
一、上述W_preview窗口中各控件說明：
1. 命令按鈕控件(CommandButton)
Cb_1: 用于數(shù)據(jù)窗口翻至首頁。
Cb_2: 用于數(shù)據(jù)窗口向上翻頁。
Cb_3: 用于數(shù)據(jù)窗口向下翻頁。
Cb_4: 用于數(shù)據(jù)窗口翻至尾頁。
Cb_5: 用于關(guān)閉打印預(yù)覽數(shù)據(jù)窗口。
2．復(fù)選框控件(CheckBox)
Cbx_1:用于為預(yù)覽數(shù)據(jù)窗口添加顯示標(biāo)尺。
3．掩碼編輯器控件(EditMask)
Em_1:用于顯示和改變打印預(yù)覽的相對(duì)比例。
4．成組框控件（GroupBox）
Gb_1:用于顯示一組控件的共同屬性信息。
5．收音機(jī)按鈕控件（RadioButton）
Rb_1:用于用戶自定義打印預(yù)覽顯示比例。
Rb_2:用于用戶設(shè)置打印預(yù)覽顯示比例為30%。
Rb_3:用于用戶設(shè)置打印預(yù)覽顯示比例為50%。
Rb_4:用于用戶設(shè)置打印預(yù)覽顯示比例為100%。
Rb_5:用于用戶設(shè)置打印預(yù)覽顯示比例為200%。
6．?dāng)?shù)據(jù)窗口控件（DataWindow）
dw_1:用于顯示打印預(yù)覽結(jié)果。
二、下面講述創(chuàng)建上述窗口的實(shí)現(xiàn)過程：
1．創(chuàng)建一個(gè)新窗口W_preview,設(shè)置該窗口的類型(WindowType)為Response,設(shè)置窗口的標(biāo)題(Title)為“打印預(yù)覽窗口"。
2．在主窗口中按示意圖放置各個(gè)控件，為掩碼編輯器（Em_1）定義屬性,在General頁中定義Text為“100”，在Mask頁中為Mask定義為“###”，選中Spin Control, 設(shè)置Spin Increment為“1”，設(shè)置Spin Range的Min為“1”、Max為“200”。
3．為窗口創(chuàng)建結(jié)構(gòu)s_preview,具體步驟是：在PowerBar工具欄中點(diǎn)取結(jié)構(gòu)畫筆（Structure）,在“選擇結(jié)構(gòu)（Select Structure）”對(duì)話框中單擊“New"按鈕,進(jìn)入結(jié)構(gòu)定義窗口,在結(jié)構(gòu)成員名（Variable Name）中輸入“dw_name",在結(jié)構(gòu)類型（Type）中選擇“String",以“s_preview"為對(duì)象名保存此結(jié)構(gòu)。
4．為窗口w_preview定義Open事件程序如下：
s_preview preview_parm
preview_parm=Message.Powerobjectparm
dw_1.Dataobject=preview_parm.dw_name
dw_1.Settransobject(SQLCA)
dw_1.Objectwindow.Print.Preview=“yes"
5．為掩碼編輯器（Em_1）定義二個(gè)用戶事件（User Events），二事件名稱為user_change和user_room, 事件user_change 的事件標(biāo)識(shí)為pbm_enchange,它是在編輯器值發(fā)生改變時(shí)觸發(fā)，事件user_room的事件標(biāo)識(shí)為pbm_custom01,它是在用戶調(diào)用TriggerEvent()函數(shù)時(shí)觸發(fā)，下面介紹這二事件的程序。
user_change事件程序如下：
IF Integer(This.Text)>0 And Integer(This.Text)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)Dw_1.Object.Datawindow.Print.Preview.Zoom=Integer(This.Text)
END IF
6.收音機(jī)按鈕Rb_2的Clicked事件程序如下:
Em_1.Text=“30”
Em_1.TriggerEvent("user_room")
7.收音機(jī)按鈕Rb_3的Clicked事件程序如下:
Em_1.Text=“50”
Em_1.TriggerEvent("user_room")
8.收音機(jī)按鈕Rb_4的Clicked事件程序如下:
Em_1.Text=“100”
Em_1.TriggerEvent("user_room")
9.收音機(jī)按鈕Rb_5的Clicked事件程序如下:
Em_1.Text=“200”
Em_1.TriggerEvent("user_room")
10.復(fù)選框Cbx_1的Clicked事件程序如下:
IF Cbx_1.Checked=TRUE THEN
Dw_1.Object.Datawindow.Print.Preview.Rulers=“yes"
ELSE
Dw_1.Object.Datawindow.Print.Preview.Rulers=“no"
END IF
11.命令按鈕Cb_1的Clicked事件程序如下:
Dw_1.ScrollToRow(0) //翻至首頁
12.命令按鈕Cb_2的Clicked事件程序如下:
Dw_1.ScrollPriorPage() //翻至前頁
13.命令按鈕Cb_3的Clicked事件程序如下:
Dw_1.ScrollNextPage() //翻至后頁
14.命令按鈕Cb_4的Clicked事件程序如下:
Dw_1.ScrollToRow(999999999) //翻至尾頁
15.命令按鈕Cb_5的Clicked事件程序如下:
Close(Parent) //退出打印預(yù)覽
16．以w_preview為窗口名，保存上述窗口。
三、調(diào)用上述通用打印預(yù)覽窗口(w_preview)
被預(yù)覽的數(shù)據(jù)窗口可以是普通數(shù)據(jù)窗口，也可以是復(fù)合數(shù)據(jù)窗口，假設(shè)要預(yù)覽的數(shù)據(jù)窗口為Dw_2,用如下方法調(diào)用:
s_preview ls_parm
ls_parm.dw_name=“temp.psr”
dw_2.Saveas("temp.psr",PSREPORT!,True)
OpenWithParm(w_preview,ls_parm)
|
