![]()
等级：新手上路
财产：
经验：
魅力：
注册：2006-7-23
文章：1
鉴定：保密 ![]()
| | ![]()
    
 |
下面是编写打印预览程序部份代码，可以参考！
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") | |
|
蓝色快车PB俱乐部论坛
浏览：数据窗口的打印问题？高手请进
顶端 
保密