【聚杰网数据库编程】PB中打印预览的实现

---

P>作为目前比较流行的数据库前端开发工具，PowerBuilder显著的一个特点就是其数据窗口(DataWindow)技术，利用此技术可生成各种复杂的报表，但在打印输出时为了打印出中国式特殊格式要求的报表时，需要编程实现，打印效果需要反复调整并打印输出，既效率低下，又浪费资源，如何让用户在打印报表前能预览报表打印效果呢 ？

　 1、 在原窗口内实现预览

　 最简单并且最常用的方法是在窗口内添加命令按钮“预览”，在其clicked事件中写入如下脚本：

if this.text="预览" then	dw_1.object.datawindow.print.preview = "yes"this.text="取消"elsethis.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_previewdw_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_dwnamels_dwname = message.stringparmdw_1.dataobject = ls_dwnamedw_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 = falseend if

　 以上方法在P200兼容机、Windows98平台上、PowerBuilder5.0上实现，完全可行。