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")