发信人: mark7312(小马哥)
整理人: soaringbird(2001-08-15 16:05:33), 站内信件
|
四、调用
在脚本中调用这个组件的方法：
（１）、利用createobject函数创建一个打印对象。
（２）、调用prtcustompage来指定定制的纸张的大小（以0.1毫米为基本单位）。如果，不是定制的纸张则不需要调用这个过程（即以打印默认的纸张大小进行打印）。
（３）、调用prtstart进行打印机的初始化工作。如果打印机初始化成功，则会将isinit属性置为真，表示初始化成功；否则，表示打印机正在忙或有别的应用程序正在使用打印机，初始化不能成功。
（４）、判断isinit标志。如果为真，则继续执行打印段。
（５）、执行打印段。可以在利用打印机画线、和在指定位置输出文字。
（注：在组件接中的所有位置单位都是0.1毫米。例如.prtobject.prtdrawlien 0,0,1000,1000 表示从左上角(0,0)毫米到右下角(100,100)毫米处，画一条直线）
（６）、利用prtend结束打印任务。
< script language="vbscript">
< !--
sub testprtobject
dim prtobject
set prtobject=createobject("prttest3.prttest3")
prtobject.prtcustompage 1000,1000
prtobject.prtstart
if prtobject.isinit then
prtobject.prtdrawline 0,0,1000,1000,1
prtobject.prtdrawline 500,700,1000,1000,1
prtobject.prtsetfont "宋体",16
prtobject.prttextrect 2,2,0,0,1000,500,"ｗｅｂ应用程序打印测试"
prtobject.prtend
end if
set prtobject=nothing
end sub
testprtobject()
//-->
< /script>
----
|
|