Delphi开发Web应用程序打印组件

　　然后、在弹出的prttest3.tlb窗口中,选择iprttest3。单击右键新增一个isinit的property,类型为long。再继续增加如下5个method:

　　　　procedure prtcustompage(pagewidth: integer; pageheight: integer);
　　　safecall;
　　procedure prtstart; safecall;
　　procedure prtnewpage; safecall;
　　procedure prtend; safecall;
　　procedure prtdrawline(x1: integer; y1: integer; x2: integer; y2:
　　　integer; linewidth: integer); safecall;
　　procedure prtsetfont(const fontname: widestring; fontsize:
　　　integer); safecall;
　　procedure prttextrect(valign: integer; halign: integer; rectleft:
　　　integer; recttop: integer;rectright: integer; rectbottom:
　　　integer; const printstring: widestring); safecall;

　　它们意义是:

　　prtcustompage 用来设置自定义纸张.传入的参数自定义纸张的宽度和高度。

　　prtstart 用来初始化打印机。如果初始化成功,则将属性isinit置为真,反之则为假。　

　　prtnewpage 用来使打印机换页。

　　prtend　　　　　结束打印任务。

　　prtdrawline 用来在页面上绘制一条线。(x1,y1)为起始点.(x2,y2)为终止点。linewidth为打印线的宽度。

　　prtsetfont 用来设置打印的字体名及大小。

　　prttextrect 用来指定的方框内的输出的指定的字符串。

　　四、调用

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

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

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