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

  1. 1、本文档共4页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PB中实现数据窗口打印预览通用方法

PB中实现数据窗口打印预览通用方法我们在文字处理过程中,常常在打印前要预览,以便控制打印效果,特别在数据打印中要有选择地打印页面,更需要预览。PB提供了程序开发过程中的数据打印预览,下面介绍在程序应用中实现打印预览通用方法。主窗口示意图如下:打印预览窗口预览尺寸自定义 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_parmpreview_parm=Message.Powerobjectparmdw_1.Dataobject=preview_parm.dw_namedw_1.Settransobject(SQLCA)dw_1.Objectwindow.Print.Preview=“yes5.为掩码编辑器(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 IFRb_1.Checked=Trueuser_room事件程序如下:IF Integer(This.Text)0 And Integer(This.Text)Dw_1.Object.Datawindow.Print.Preview.Zoom=Integer(This.Text)END IF6.收音机按钮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 THENDw_1.Object.Datawindow.Print.Preview.

文档评论(0)

wnqwwy20 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:7014141164000003

1亿VIP精品文档

相关文档