一、概述
在銀行，稅務(wù)，郵政等行業(yè)的實(shí)際工作中，經(jīng)常涉及到在印刷好具有固定格式的匯款單，儲(chǔ)蓄憑證，
稅票等單據(jù)上的確定位置打印輸出相關(guān)的信息。在此類需求中，精確地定位單據(jù)并打印相關(guān)信息，
是解決問(wèn)題的關(guān)鍵。一般情況下，開(kāi)發(fā)者都是通過(guò)在打印機(jī)上通過(guò)重復(fù)的測(cè)試來(lái)達(dá)到實(shí)際需求。
那么，有沒(méi)有簡(jiǎn)單有效而又靈活的方法實(shí)現(xiàn)上述功能呢？
二、基本思路

分析上述單據(jù)的特征，可以發(fā)現(xiàn)：此類打印輸出的信息一般比較簡(jiǎn)短，不涉及到文字過(guò)長(zhǎng)的折行處理，
另外，其打印輸出的位置相對(duì)固定。因此，我們可以通過(guò)用尺子以毫米為單位，測(cè)量好每個(gè)輸出信息位置
的橫向和縱向坐標(biāo),作為信息輸出的位置。但由于不同打印機(jī)在實(shí)際輸出效果上，總是存在理論和實(shí)際位置
的偏差，因此，要求程序具有一定的靈活性，供最終用戶根據(jù)需要，進(jìn)行必要的位置調(diào)整。因此，可設(shè)置
一打印配置文件，用于存儲(chǔ)橫坐標(biāo)和縱坐標(biāo)的偏移量，用于用戶進(jìn)行位置校正，從而提供了一定的靈活性。
三、精確打印輸出的程序?qū)崿F(xiàn)
1． 在Delphi中新建一個(gè)名為mprint.pas的單元文件并編寫如下程序，單元引用中加入Printers略：

//取得字符的高度
function CharHeight: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmHeight;
end;

file://取得字符的平均寬度
function AvgCharWidth: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmAveCharWidth;
end;

file://取得紙張的物理尺寸---單位：點(diǎn)
function GetPhicalPaper: TPoint;
var
　PageSize : TPoint;
begin
　file://PageSize.X; 紙張物理寬度-單位:點(diǎn)
　file://PageSize.Y; 紙張物理高度-單位:點(diǎn)
　Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
　Result := PageSize;
end;

file://2.取得紙張的邏輯寬度--可打印區(qū)域
file://取得紙張的邏輯尺寸
function PaperLogicSize: TPoint;
var
　APoint: TPoint;
begin
　APoint.X := Printer.PageWidth;
　APoint.Y := Printer.PageHeight;
　Result := APoint;
end;

file://紙張水平對(duì)垂直方向的縱橫比例
function HVLogincRatio: Extended;
var
　AP: TPoint;
begin
　Ap := PaperLogicSize;
　Result := Ap.y/Ap.X;
end;

file://取得紙張的橫向偏移量-單位：點(diǎn)
function GetOffSetX: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
end;

file://取得紙張的縱向偏移量-單位：點(diǎn)
function GetOffSetY: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
end;

file://毫米單位轉(zhuǎn)換為英寸單位
function MmToInch(Length: Extended): Extended;
begin
　Result := Length/25.4;
end;

file://英寸單位轉(zhuǎn)換為毫米單位
function InchToMm(Length: Extended): Extended;
begin
　Result := Length*25.4;
end;

file://取得水平方向每英寸打印機(jī)的點(diǎn)數(shù)
function HPointsPerInch: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
end;

file://取得縱向方向每英寸打印機(jī)的光柵數(shù)
function VPointsPerInch: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
end;

file://橫向點(diǎn)單位轉(zhuǎn)換為毫米單位
function XPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/HPointsPerInch;
end;

file://縱向點(diǎn)單位轉(zhuǎn)換為毫米單位
function YPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/VPointsPerInch;
end;

file://設(shè)置紙張高度-單位：mm
procedure SetPaperHeight(Value:integer);
var
　Device : array[0..255] of char;
　Driver : array[0..255] of char;
　Port : array[0..255] of char;
　hDMode : THandle;
　PDMode : PDEVMODE;
begin
file://自定義紙張最小高度127mm
if Value < 127 then Value := 127;
　file://自定義紙張最大高度432mm
　if Value > 432 then Value := 432;
　　Printer.PrinterIndex := Printer.PrinterIndex;
　　Printer.GetPrinter(Device, Driver, Port, hDMode);
　　if hDMode <> 0 then
　　　begin
　　　　pDMode := GlobalLock(hDMode);
　　　　if pDMode <> nil then
　　　　begin
　　　　　pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
　　　　　　　　　　　　　　　DM_PAPERLENGTH;
　　　　　pDMode^.dmPaperSize := DMPAPER_USER;
　　　　　pDMode^.dmPaperLength := Value * 10;
　　　　　pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
　　　　　pDMode^.dmDefaultSource := DMBIN_MANUAL;
　　　　　GlobalUnlock(hDMode);
　　　　end;
　　　end;
　　　Printer.PrinterIndex := Printer.PrinterIndex;
end;

file://設(shè)置紙張寬度：?jiǎn)挝?-mm
Procedure SetPaperWidth(Value:integer);
var
　Device : array[0..255] of char;
　Driver : array[0..255] of char;
　Port : array[0..255] of char;
　hDMode : THandle;
　PDMode : PDEVMODE;
begin
file://自定義紙張最小寬度76mm
if Value < 76 then Value := 76;
　file://自定義紙張最大寬度216mm
　if Value > 216 then Value := 216;
　　Printer.PrinterIndex := Printer.PrinterIndex;
　　Printer.GetPrinter(Device, Driver, Port, hDMode);
　　if hDMode <> 0 then
　　begin
　　　pDMode := GlobalLock(hDMode);
　　　if pDMode <> nil then
　　　begin
　　　　pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
　　　　　　　　　　　　　　DM_PAPERWIDTH;
　　　　pDMode^.dmPaperSize := DMPAPER_USER;
　　　　file://將毫米單位轉(zhuǎn)換為0.1mm單位
　　　　pDMode^.dmPaperWidth := Value * 10;
　　　　pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
　　　　pDMode^.dmDefaultSource := DMBIN_MANUAL;
　　　　GlobalUnlock(hDMode);
　　　end;
　　end;
　　Printer.PrinterIndex := Printer.PrinterIndex;
end;

file://在 (Xmm, Ymm)處按指定配置文件信息和字體輸出字符串
procedure PrintText(X, Y: Extended; Txt: string; ConfigFileName: string; FontSize: Integer=12);
var
　OrX, OrY: Extended;
　Px, Py: Integer;
　AP: TPoint;
　Fn: TStrings;
　FileName: string;
　OffSetX, OffSetY: Integer;
begin
file://打開(kāi)配置文件，讀出橫向和縱向偏移量
try
　Fn := TStringList.Create;
　FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
　if FileExists(FileName) then
　begin
　　Fn.LoadFromFile(FileName);
　　file://橫向偏移量
　　OffSetX := StrToInt(Fn.Values['X']);
　　file://縱向偏移量
　　OffSetY := StrToInt(Fn.Values['Y']);
　end
else
begin
　file://如果沒(méi)有配置文件，則生成
　Fn.Values['X'] := '0';
　Fn.Values['Y'] := '0';
　Fn.SaveToFile(FileName);
end;
finally
　Fn.Free;
end;
X := X + OffSetX;
Y := Y + OffSetY;
Px := Round(Round(X * HPointsPerInch * 10000/25.4) / 10000);
Py := Round(Round(Y * VPointsPerInch * 10000/25.4) / 10000);
Py := Py - GetOffSetY; file://因?yàn)槭墙^對(duì)坐標(biāo), 因此, 不用換算成相對(duì)于Y軸坐標(biāo)
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． 使用舉例

　　在主窗體中加入對(duì)mprint單元的引用，在一命令鈕的OnClick
事件中書(shū)寫如下代碼（用于在郵政匯款單上的相應(yīng)方框內(nèi)打印郵政編碼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;

　　觀察結(jié)果，用尺子測(cè)量偏移量，在config.txt文件中修改X，Y的值即可。

　　其它，設(shè)置打印機(jī)和紙張類型從略。

　　四、結(jié)束語(yǔ)
?
??

來(lái)自： 易云飛, 時(shí)間：2004-7-23 9:51:55, ID：2726013

? 如果打小于76毫米的高度的票據(jù)呢？
? 不就是沒(méi)法控制精度拉。
? 而且我問(wèn)過(guò)epson，十厘米以下一般走紙就不是非常準(zhǔn)確，必須調(diào)整幾毫米才能保證準(zhǔn)確，如果你的高度間距恰好不被用英寸所精確確定，那么打印就有可能出現(xiàn)累計(jì)誤差。
比如高度70mm的紙連續(xù)紙，Epson針打必須設(shè)置在719mm才能保證走到切紙位，
??

來(lái)自： 易云飛, 時(shí)間：2004-7-23 9:58:58, ID：2726045

而且，如果你用寫字板做測(cè)試走紙是否走到切紙位，以上719mm也有一點(diǎn)點(diǎn)沒(méi)有到位，當(dāng)打多張時(shí)，累計(jì)走紙誤差也就越來(lái)越大，10張就幾乎10mm啦，如果調(diào)到721mm，走紙就過(guò)了切紙位一點(diǎn)點(diǎn)，調(diào)到7。20mm是最合適的，可惜epson是按英寸計(jì)算，719，720對(duì)應(yīng)2。83in,
7.21 對(duì)應(yīng)2。84in, 嘿嘿，沒(méi)撤。 ?

來(lái)自： 易云飛, 時(shí)間：2004-7-23 10:14:54, ID：2726098

解決方法是有很多的，由直接也有間接，不過(guò)達(dá)到最佳效果，還得靠esc命令，不過(guò)得熟悉esc/p系列命令，親自控制打印機(jī)的走紙。 ?

來(lái)自： 易云飛, 時(shí)間：2004-7-23 14:40:04, ID：2726748

?可恨的是，我還在研究，頭都大了 ?

來(lái)自： ktsxy, 時(shí)間：2004-7-30 10:58:21, ID：2738703

? ?非常感謝...你們給出這么好的答案...謝謝 ?

來(lái)自： ktsxy, 時(shí)間：2004-7-30 11:04:42, ID：2738732

請(qǐng)問(wèn) ?d_fan 怎么聯(lián)系你....我有很急的事要請(qǐng)教你(關(guān)于票據(jù)打印)問(wèn)題.....

? ? ? 你能不能發(fā)一份票據(jù)打印的Delphi 源程序給我..謝謝


? ? ? ? ?小弟很急...............QQ:330117537 ? ? ?

來(lái)自： xdengni, 時(shí)間：2004-11-23 15:18:09, ID：2904656

請(qǐng)問(wèn) ?d_fan 怎么聯(lián)系你....我有很急的事要請(qǐng)教你(關(guān)于票據(jù)打印)問(wèn)題.....

? ? ? 你能不能發(fā)一份票據(jù)打印的Delphi 源程序給我..我也想要，謝謝 ?

來(lái)自： cng81, 時(shí)間：2004-11-24 16:13:03, ID：2906618

TO：d_fan 真是感謝你提供的代碼，我要好好研究一個(gè)。呵呵（敬禮！） ?

來(lái)自： luckysw, 時(shí)間：2004-11-30 16:21:27, ID：2913352

d_fan 我也正在做票據(jù)打印，感謝你提供的代碼 呵呵
不過(guò)，這段代碼好像還有一個(gè)小問(wèn)題：
要是打印的位置超出了默認(rèn)的頁(yè)邊距怎么辦？
有什么辦法能設(shè)置頁(yè)邊距嗎？ ?

來(lái)自： thj, 時(shí)間：2005-8-30 16:44:59, ID：3185727

還有一個(gè)重要問(wèn)題：不好控制折行。 ?

來(lái)自： 任逍遙1205, 時(shí)間：2005-12-7 18:04:41, ID：3289184

這行代碼怎么來(lái)實(shí)現(xiàn)橫打，我加上下面這段代碼也不行
PDMode^.dmFields:=DM_ORIENTATION;
PDMode^.dmOrientation :=PDMode^.dmFields or DMORIENT_LANDSCAPE; ?

來(lái)自： nido, 時(shí)間：2005-12-15 8:20:29, ID：3297086

樓主 我也需要一份源代碼，能否發(fā)給我呢
nidogz@gmail.com ?

來(lái)自： zhangbo, 時(shí)間：2005-12-31 11:01:56, ID：3314733

請(qǐng)問(wèn) ?d_fan 怎么聯(lián)系你
我有很急的事要請(qǐng)教你(關(guān)于票據(jù)打印)問(wèn)題
你能不能發(fā)一份票據(jù)打印的Delphi 源程序給我..謝謝
我在打憑證時(shí)老差2mm，累計(jì)誤差只能打10個(gè)憑證。
紙的高度是108mm
我用的是FastReport
我的QQ是382057922 ?

來(lái)自： zhangbo, 時(shí)間：2005-12-31 11:12:06, ID：3314753

請(qǐng)問(wèn) ?d_fan 怎么聯(lián)系你
我有很急的事要請(qǐng)教你(關(guān)于票據(jù)打印)問(wèn)題
你能不能發(fā)一份票據(jù)打印的Delphi 源程序給我..謝謝
我在打憑證時(shí)老差2mm，累計(jì)誤差只能打10個(gè)憑證。
紙的高度是108mm
我用的是FastReport
我的QQ是382057922 ?
yhqzbb2@sina.com ?