Delphi中票据凭证的精确打印.docVIP

Delphi中票据凭证的精确打印 Delphi中票据凭证的精确打印 一、概述 　　在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等 单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题]的关键。 一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。 那么，有没有简单有效而又灵活的方法实现上述功能呢？ 　　二、基本思路 　　分析上述单据的特征，可以发现：此类打印输出的信息一般比较简短，不涉及到文字过长的折行处理， 另外，其打印输出的位置相对固定。因此，我们可以通过用尺子以毫米为单位， 测量好每个输出信息位置的横向和纵向坐标，作为信息输出的位置。 但由于不同打印机在实际输出效果上，总是存在理论和实际位置的偏差， 因此，要求程序具有一定的灵活性，供最终用户根据需要，进行必要的位置调整。 因此，可设置一打印配置文件，用于存储横坐标和纵坐标的偏移量，用于用户进行位置校正，从而提供了一定的灵活性。 　　三、精确打印输出的程序实现 　　1． 在Delphi中新建一个名为mprint.pas的单元文件并编写如下程序，单元引用中加入Printers略： //取得字符的高度 function CharHeight: Word; var 　Metrics: TTextMetric; begin 　Get