在页面中嵌入VBS脚本,有什么问题吗?打印组件是DELPHI写的Automatic Object,在客户端
注册的。
========================
Function printcard(xMove,yMove) '套打报表
On Error GoTo 0
Dim prtobject '申明打印控件
set prtobject=createobject("IEprinter.Webprinter") '创建客户端打印控件
Dim tmpX '原点调整X坐标
tmpX=xMove
Dim tmpY '原点调整Y坐标
tmpY=yMove
........................
prtobject.prtend '结束打印
prtobject.writecfg xMove,yMove
set prtobject=nothing
printcard=0
Exit Function
Error:
printcard=err.number
end Function