打印预览窗口
预览尺寸
自定义 30% 50% 100% 200% 标尺
、上述W_preview窗口中各Control控件介绍说明:
1. 命令按钮Control控件(CommandButton)
Cb_1: 用于数据窗口翻至首页
Cb_2: 用于数据窗口向上翻页
Cb_3: 用于数据窗口向下翻页
Cb_4: 用于数据窗口翻至尾页
Cb_5: 用于关闭打印预览数据窗口
2.复选框Control控件(CheckBox)
Cbx_1:用于为预览数据窗口添加显示标尺
3.掩码编辑器Control控件(EditMask)
Em_1:用于显示和改变打印预览相对比例
4.成组框Control控件(GroupBox)
Gb_1:用于显示组Control控件共同属性信息
5.收音机按钮Control控件(RadioButton)
Rb_1:用于用户自定义打印预览显示比例
Rb_2:用于用户设置打印预览显示比例为30%
Rb_3:用于用户设置打印预览显示比例为50%
Rb_4:用于用户设置打印预览显示比例为100%
Rb_5:用于用户设置打印预览显示比例为200%
6.数据窗口Control控件(DataWindow)
dw_1:用于显示打印预览结果
2、下面讲述创建上述窗口实现过程:
1.创建个新窗口W_preview,设置该窗口类型(WindowType)为Response,设置窗口标题(Title)为“打印预览窗口"
2.在主窗口中按示意图放置各个Control控件为掩码编辑器(Em_1)定义属性,在General页中定义Text为“100”在Mask页中为Mask定义为“###”选中Spin Control, 设置Spin Increment为“1”设置Spin RangeMin为“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.Pr.Preview=“yes"
5.为掩码编辑器(Em_1)定义 2个用户事件(User Events) 2事件名称为user_change和user_room, 事件user_change 事件标识为pbm_enchange,它是在编辑器值发生改变时触发事件user_room事件标识为pbm_custom01,它是在用户TriggerEvent时触发下面介绍这 2事件
user_change事件如下:
IF Integer(This.Text)>0 And Integer(This.Text)Dw_1.Object.Datawindow.Pr.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.Pr.Preview.Zoom=Integer(This.Text)
END IF
6.收音机按钮Rb_2Clicked事件如下:
Em_1.Text=“30”
Em_1.TriggerEvent("user_room")
7.收音机按钮Rb_3Clicked事件如下:
Em_1.Text=“50”
Em_1.TriggerEvent("user_room")
8.收音机按钮Rb_4Clicked事件如下:
Em_1.Text=“100”
Em_1.TriggerEvent("user_room")
9.收音机按钮Rb_5Clicked事件如下:
Em_1.Text=“200”
Em_1.TriggerEvent("user_room")
10.复选框Cbx_1Clicked事件如下:
IF Cbx_1.Checked=TRUE THEN
Dw_1.Object.Datawindow.Pr.Preview.Rulers=“yes"
ELSE
Dw_1.Object.Datawindow.Pr.Preview.Rulers=“no"
END IF
11.命令按钮Cb_1Clicked事件如下:
Dw_1.ScrollToRow(0) //翻至首页
12.命令按钮Cb_2Clicked事件如下:
Dw_1.ScrollPriorPage //翻至前页
13.命令按钮Cb_3Clicked事件如下:
Dw_1.ScrollNextPage //翻至后页
14.命令按钮Cb_4Clicked事件如下:
Dw_1.ScrollToRow(999999999) //翻至尾页
15.命令按钮Cb_5Clicked事件如下:
Close(Parent) //退出打印预览
16.以w_preview为窗口名保存上述窗口
3、上述通用打印预览窗口(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)
最新评论