精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Delphi 网络编程>>Delphi开发WEB应用程序打印组件(2)

主题:Delphi开发WEB应用程序打印组件(2)
发信人: mark7312(小马哥)
整理人: soaringbird(2001-08-15 16:05:33), 站内信件
四、调用 

在脚本中调用这个组件的方法: 


(1)、利用createobject函数创建一个打印对象。 


(2)、调用prtcustompage来指定定制的纸张的大小(以0.1毫米为基本单位)。如果,不是定制的纸张则不需要调用这个过程(即以打印默认的纸张大小进行打印)。 


(3)、调用prtstart进行打印机的初始化工作。如果打印机初始化成功,则会将isinit属性置为真,表示初始化成功;否则,表示打印机正在忙或有别的应用程序正在使用打印机,初始化不能成功。 


(4)、判断isinit标志。如果为真,则继续执行打印段。 


(5)、执行打印段。可以在利用打印机画线、和在指定位置输出文字。 


(注:在组件接中的所有位置单位都是0.1毫米。例如.prtobject.prtdrawlien 0,0,1000,1000 表示从左上角(0,0)毫米到右下角(100,100)毫米处,画一条直线) 


(6)、利用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,"web应用程序打印测试"


prtobject.prtend


end if




set prtobject=nothing


end sub




testprtobject()


//--> 


< /script> 





----

[关闭][返回]