Delphi中票據憑證的精確列印

一、概述

在銀行，稅務，郵政等行業的實際工作中，經常涉及到在印刷好具有固定格式的匯款單，儲蓄憑證，**等單據上的確定位置列印輸出相關的資訊。在此類需求中，精確地定位單據並列印相關資訊，是解決問題]的關鍵。一般情況下，開發者都是通過在印表機上通過重複的測試來達到實際需求。那麼，有沒有簡單有效而又靈活的方法實現上述功能呢？

二、基本思路

分析上述單據的特徵，可以發現：此類列印輸出的資訊一般比較簡短，不涉及到文字過長的折行處理，另外，其列印輸出的位置相對固定。因此，我們可以通過用尺子以公釐為單位，測量好每個輸出資訊位置的橫向和縱向座標，作為資訊輸出的位置。但由於不同印表機在實際輸出效果上，總是存在理論和實際位置的偏差，因此，要求程式具有一定的靈活性，供終端使用者根據需要，進行必要的位置調整。因此，可設定一列印配置檔案，用於儲存橫座標和縱座標的偏移量，用於使用者進行位置校正，從而提供了一定的靈活性。

三、精確列印輸出的程式實現

1．在delphi中新建乙個名為mprint.pas的單元檔案並編寫如下程式，單元引用中加入printers略：

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的值即可。

Delphi中票據憑證的精確列印

Delphi中票據憑證的精確列印

Delphi中票據憑證的精確列印

使用皕傑報表進行票據等的套打

相關推薦