PowerBuilder中實現數據窗口打印預覽通用方法

PowerBuilder中實現數據窗口打印預覽通用方法

（加入日期:2001-11-11）

【保存文章至硬盤】【打印文章】【字體：大中 小】

分享到： 0

　　我們在文字處理過程中，常常在打印前要預覽，以便控制打印效果，特別在數據打印中要有選擇地打印頁面，更需要預覽。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.Powerobjectparm

dw_1.Dataobject=preview_parm.dw_name

dw_1.Settransobject(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)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.收音機按鈕Rb_2的Clicked事件程序如下:

Em_1.Text=“30”

Em_1.TriggerEvent("user_room")

7.收音機按鈕Rb_3的Clicked事件程序如下:

Em_1.Text=“50”

Em_1.TriggerEvent("user_room")

8.收音機按鈕Rb_4的Clicked事件程序如下:

Em_1.Text=“100”

Em_1.TriggerEvent("user_room")

9.收音機按鈕Rb_5的Clicked事件程序如下:

Em_1.Text=“200”

Em_1.TriggerEvent("user_room")

10.複選框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) //退出打印預覽

16．以w_preview爲窗口名，保存上述窗口。


三、調用上述通用打印預覽窗口(w_preview)

被預覽的數據窗口可以是普通數據窗口，也可以是複合數據窗口，假設要預覽的數據窗口爲Dw_2,用如下方法調用:

s_preview ls_parm

ls_parm.dw_name=“temp.psr”

dw_2.Saveas("temp.psr",PSREPORT!,True)

OpenWithParm(w_preview,ls_parm)