tY; file://因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
Px := Px + 2 * AvgCharWidth;
Printer.Canvas.Font.Name := ''宋体'';
Printer.Canvas.Font.Size := FontSize;
file://Printer.Canvas.Font.Color := clGreen;
Printer.Canvas.TextOut(Px, Py, Txt);
end;

　　2． 使用举例

　　在主窗体中加入对mprint单元的引用，在一命令钮的OnClick事件中书写如下代码（用于在邮政汇款单上的相应方框内打印邮政编码843300）：

Printer.BeginDoc;
PrintText(16, 14, ''8'', ''config.txt'');
PrintText(26, 14, ''4'', ''config.txt'');
PrintText(36, 14, ''3'', ''config.txt'');
PrintText(46, 14, ''3'', ''config.txt'');
PrintText(56, 14, ''0'', ''config.txt'');
PrintText(66, 14, ''0'', ''config.txt'');
Printer.EndDoc;

　　观察结果，用尺子测量偏移量，在config.txt文件中修改X，Y的值即可。

　　其它，设置打印机和纸张类型从略。

　　四、结束语

　　笔者通过该方法，实现了邮政汇款单，储蓄凭证，客户信封等单据的精确打印，取得了较为满意的效果。该程序在Windows98，Delphi5下调试通过。