-- 作者:wwqwcp
-- 发布时间:2006/7/23 15:38:27
--
下面是编写打印预览程序部份代码,可以参考! powerobject my_object my_object=message.powerobjectparm if typeof(my_object)=datawindow! then //传递的是数据窗口对象 datawindow dw_data dw_data=message.powerobjectparm dw_print.dataobject = dw_data.dataobject //对象 dw_data.sharedata(dw_print) //数据 else if typeof(my_object)=datastore! then //传递的是数据存储对象 datastore ds_data ds_data=create datastore ds_data=message.powerobjectparm dw_print.dataobject = ds_data.dataobject //对象 dw_print.settransobject(sqlca) dw_print.retrieve() else messagebox("错误","传送数据发生异常,停止传输……") return end if end if //开始我是以剪贴板的形式来传递数据的,后来在Kukoc大侠的帮助下改用共享数据的形式来传递 //效果更好,在此表示感谢! ^_^ dw_print.object.datawindow.print.preview="yes" cb_close.enabled=false cb_next.enabled=false cb_option.enabled=false cb_print.enabled=false cb_prior.enabled=false cb_rule.enabled=false sle_scale.enabled=false vsb_scale.enabled=false st_page.visible=false //显示初使信息 open(w_msg) //人为控制打印方向 if dw_print.object.datawindow.print.orientation="0" then //将默认改为纵向打印 dw_print.object.datawindow.print.orientation="2" end if //不可打印 If dw_print.RowCount () = 0 Then cb_print.Enabled = False cb_prior.Enabled = False cb_next.Enabled = False End If //以适当的比例显示一页 this.postevent("ue_scale") this.postevent("ue_setpage")
|