发信人: gaoftree()
整理人: leitiger(2002-06-05 23:47:38), 站内信件
|
PB中打印预览的实现
---- 作为目前比较流行的数据库前端开发工具，PowerBuilder显著的一个特点就
是其数据窗口(DataWindow)技术，利用此技术可生成各种复杂的报表，但在打印
输出时为了打印出中国式特殊格式要求的报表时，需要编程实现，打印效果需要
反复调整并打印输出，既效率低下，又浪费资源，如何让用户在打印报表前能预
览报表打印效果呢？
---- 1、在原窗口内实现预览
---- 最简单并且最常用的方法是在窗口内添加命令按钮“预览”，在其clicked
事件中写入如下脚本：
if this.text="预览" then
dw_1.object.datawindow.print.preview = "yes"
this.text="取消"
else
this.text="预览"
dw_1.object.datawindow.print.preview = "no"
end if
---- 该方法适用于打印报表的格式与数据窗口的显示格式相同。
---- 2、 在预览窗口w_preview中实现预览
---- 在PB5.0带的例子Code Examples中有一窗口w_preview,用它可完成数据窗口
的预览，它的技术要点是：将数据窗口的语法作为参数传递给w_preview，再在w
_preview窗口中用dw.create()函数生成此数据窗口，其中数据用describe()函数
取得，再用imporstring()函数转入。依据中国人的习惯，将w_preview内英文提
示全部改为中文。采用此窗口进行预览的好处是：预览的比例可随意调整，便于
观察整体效果。在Code Examples中调用w_preview的过程非常复杂，它先调用一
个自定义函数，然后在函数中调用w_preview，下面介绍一种比较简单的调用方法
并采用另一种获取预览数据的方法。
在命令按钮“预览”的clicked事件中写入如下脚本：(原脚本全部删除)
string ls_dwname//定义变量，
用于存放数据窗口控件名
if isvalid(w_preview)
then close(w_preview)
ls_dwname = dw_1.dataobject//取数据窗口控件名
//拷贝数据窗口内的数据到剪贴板，
然后打开预览窗口w_preview
dw_1.saveas("",clipboard!,false)
openwithparm(w_preview,ls_dwname)
在w_preview的open事件中写入脚本如下：
//说明：用于单数据窗口的打印预览
//调用规则：open(w_preview,)
//参数stringparm为字符型变量，
存放数据窗口控制名
//返回值： 无
//****************************
***********************************
//例如：
// string ls_dwname
// ls_dwname = dw_1.dataobject
// dw_1.saveas("",clipboad!,false)
// openwithparm(w_preview,ls_dwname)
//**********************************
*****************************
//获得数据窗口控件名
string ls_dwname
ls_dwname = message.stringparm
dw_1.dataobject = ls_dwname
dw_1.settransobject(sqlca)
dw_1.importclipboard() //导入预览数据
dw_1.object.datawindow.print.preview
= "yes"//置预览方式为true
---- 这种方法比较简单，充分利用了PB5.0现有资源，而且容易理解。但如果打
印是通过复合式窗口（composite dw）来实现的，其打印效果的预览采用以上方
法就不行，数据无法传递，只能采用最基本的方法实现，平时复合式窗口是不可
见的，预览时将其可见即可，脚本如下：(dw_7为复合式数据窗口)
if this.text="预览" then
SetPointer(Hourglass!)
dw_7.object.datawindow.print.preview = "yes"
dw_7.visible = true
this.text="取消"
else
this.text="预览"
dw_7.visible = false
end if
---- 以上方法在P200兼容机、Windows98平台上、PowerBuilder5.0上实现，完全
可行。
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.102.202.39]
|
|