正在阅读：Delphi开发WEB应用程序打印组件Delphi开发WEB应用程序打印组件

2004-04-06 09:51 出处：delphi精髓网作者：delphi精髓责任编辑：sdq

　　它们意义是:
　　　prtcustompage 用来设置自定义纸张.传入的参数自定义纸张的宽度和高度。
            prtstart 用来初始化打印机。如果初始化成功,则将属性isinit置为真,反之则为假。　
            prtnewpage 用来使打印机换页。
            prtend　　　　　结束打印任务。
            prtdrawline 用来在页面上绘制一条线。(x1,y1)为起始点.(x2,y2)为终止点。linewidth为打印线的宽度。
            prtsetfont 用来设置打印的字体名及大小。
            prttextrect 用来指定的方框内的输出的指定的字符串。
            Delphi开发WEB应用程序打印组件(2)

四、调用

　　在脚本中调用这个组件的方法:
            (１)、利用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>
            Delphi开发WEB应用程序打印组件(3)

察看评论详细内容我要发表评论