用Delphi编写打印程序的窍门

如果你想自己用Delphi编写一个打印程序 那么 下面这些技巧或许对你有所帮助

获取 显示当前打印机的分辨率

Windows下的打印分辨对打印程序有着至关重要的作用 如果你想知道打印机的分辨率 请在程序中加入一行

ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer Handle LOGPIXELSX))＋chr( )＋′垂直分辨率:′＋ inttostr(GetDeviceCaps(printerHandle LOGPIXELSY)))

结果就一目了然了

将结果直接送到打印机

Delphi提供了两种打印方式 一是将结果输送到Form 再调用Form的print方法将结果输送到打印机 二是将结果直接输送到打印机 如果你采用第一种方式 则无论你怎样调整Form的PrintScal属性 打印出来的东西也不会让你满意 因此建议采用第二种方式

尽量不要使用AssignPrn

尽管AssignPrn简化了文本打印 *** 作 使输出到打印机像输出到文件一样简单 但简单带来的是一系列的不方便 你无法知道当前打印的行数 无法准确控制行距 无法灵活改变字体字形等等 还是用打印机的Canvas属性进行打印吧

　 　 用打印机的点数做度量单位

如果想让打印程序在任何打印机上都能正常地打印 你就必须改变你的度量单位 如果采用固定的度量 不同分辨率的打印效果是不同的 举例来讲 printerCanvasrectangle( )在 × 的佳能 SP上能打出一个 英寸宽 英寸高的矩形 但在 × 的惠普 L上只能打出 英寸宽 英寸高的矩形 使用打印机的点数做为度量单位是一个明智的选择 具体做法如下

Var PointX PointY:integerPointX:=GetDeviceCaps(printerHandle LOGPIXELSX)PointY:=GetDeviceCaps(printerHandle LOGPIXELSX)printerCanvasrectangle( PointX＊ PointY＊ )

这样 无论你使用什么样的打印机 都能得到一个 英寸宽 英寸高的矩形

添加打印程序单元

lishixinzhi/Article/program/Delphi/201311/24867

近些年来 随着互联网的普及和推广 传统的单机模式和局域中的c/s模式的应用程序越来越不能满足信息共享的要求 因此 一种新的基于浏览器的b/s的应用程序的开发方式被提了出来 新的开发方案以其客户端的免维护 免配置 程序能根据服务器的信息能够自动更新升级服务器端多层模式的应有提高处理的效率和安全性越来越被广大的应用程序的开发者所看好 成为应用程序开发的一个新的发展方向 在windows的平台上 人们利用asp来开发服务的显示界面 而用组件来封装商业规则 在各种杂志上利用各种工具进行组件开发也是屡见不鲜 但介绍打印组开发却不怎么看到?

二 设想

web打印组件要求是在一次为某单位开发信息管理系统中被提及的 这个系统中的一些票据需要打印 这样 如何对这些票据进行套打成了我们必须解决的问题

要在客户端打印一些用户要求的票据或其它的文字或图片资料 有两种方式:一种是利用delphi的active　form来生成客户端的界面 由浏览器下载安装 并在客户端运行 (这种方式在开发多后台数据库中 较为常用 在国内许多新版本的财务软件都采用了这种方法 其缺点是对开发人员的要求太高) 另一种是开发一个组件在客户端安装 然后 由服务器端来生成vbscript脚本 在客户端运行 创建相应的组件对象利用组件对象来进行打印 *** 作 (这种方法只要客户端的组件开发完成 使用者只要熟悉vbscript或javascript脚本语言就可能方便的调用)?

三 实现

首先 运行delphi 选择file菜单中的new 在d出的对话框中选择activex页 选择activex library创建activex库 然后 再往新建的库中加入一个automation object *** 作步骤同上 在automation object wizard对话框中填入组件名prttest 单击ok

然后 在d出的prttest tlb窗口中 选择iprttest 单击右键新增一个isinit的property 类型为long 再继续增加如下 个method:

procedure prtcustompage(pagewidth: integerpageheight: integer)

safecall

procedure prtstartsafecall

procedure prtnewpagesafecall

procedure prtendsafecall

procedure prtdrawline(x : integery : integerx : integery :

integerlinewidth: integer)safecall

procedure prtsetfont(const fontname: widestringfontsize:

integer)safecall

procedure prttextrect(valign: integerhalign: integerrectleft:

integerrecttop: integerrectright: integerrectbottom:

integerconst printstring: widestring)safecall

它们意义是:

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

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

prtnewpage 用来使打印机换页

prtend　结束打印任务

prtdrawline 用来在页面上绘制一条线 (x y )为起始点 (x y )为终止点 linewidth为打印线的宽度

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

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

Delphi开发WEB应用程序打印组件( )

[ ]  [ ]  [ ]

lishixinzhi/Article/program/Delphi/201311/24792

---