用 Delphi 撰寫列印程式的竅門

bestlong

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

1.获娶显示当前打印机的分辨率
在 Windows 下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：

1. ShowMessage(
   
2.   '水平分辨率：' + inttostr(GetDeviceCaps(printer Handle, LOGPIXELSX)) + chr(13) +
   
3.   '垂直分辨率：' + inttostr(GetDeviceCaps(printer Handle, LOGPIXELSY)));

複製代碼

结果就一目了然了。

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

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

4.用打印机的点数做度量单位
如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的度量单位。
如果采用固定的度量，不同分辨率的打印效果是不同的。
举例来讲：

1. printer.Canvas.Rectangle(0, 0, 360, 720)

複製代碼

會在 360 × 360 的佳能 4200SP 上能打出一个 1 英寸宽、2 英寸高的矩形。
但在 600 × 600 的惠普 6L 上只能打出 0.6 英寸宽、1.2 英寸高的矩形。
使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：

1. Var
   
2.   PointX, PointY: integer;
   
3.   PointX := GetDeviceCaps(printer Handle, LOGPIXELSX);
   
4.   PointY := GetDeviceCaps(printer Handle, LOGPIXELSX);
   
5.   printer.Canvas.Rectangle(0, 0, PointX * 1, PointY * 2)

複製代碼

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

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