PB中打印预览的实现

　 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

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

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18