用Delphi编写打印程序的窍门

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

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

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

ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer HandleLOGPIXELSX))＋chr()＋′垂直分辨率:′＋ inttostr(GetDeviceCaps(printerHandleLOGPIXELSY)));

结果就一目了然了

将结果直接送到打印机

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

尽量不要使用AssignPrn

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

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

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

Var PointXPointY:integer;

PointX:=GetDeviceCaps(printerHandleLOGPIXELSX);

PointY:=GetDeviceCaps(printerHandleLOGPIXELSX);

printerCanvasrectangle(PointX＊PointY＊)

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

添加打印程序单元

尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元但打印程序单元(Printers)却不在之列要想使打印机正常工作和程序不出错你还是老老实实手工给它加上吧