1、使用 Delphi 实现票据精确打印 一、概述在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题的关键。一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。那么，有没有简单有效而又灵活的方法实现上述功能呢？二、基本思路分析上述单据的特征，可以发现：此类打印输出的信息一般比较简短，不涉及到文字过长的折行处理，另外，其打印输出的位置相对固定。因此，我们可以通过用尺子以毫米为单位，测量好每个输出信息位置的横向和纵向坐标,作为信息输出的位置。但由于不同打印
2、机在实际输出效果上，总是存在理论和实际位置的偏差，因此，要求程序具有一定的灵活性，供最终用户根据需要，进行必要的位置调整。因此，可设置一打印配置文件，用于存储横坐标和纵坐标的偏移量，用于用户进行位置校正，从而提供了一定的灵活性。三、精确打印输出的程序实现1 在 Delphi 中新建一个名为 mprint.pas 的单元文件并编写如下程序，单元引用中加入 Printers 略：/取得字符的高度function CharHeight: Word;varMetrics: TTextMetric;beginGetTextMetrics(Printer.Canvas.Handle, Metrics);R
3、esult := Metrics.tmHeight;end;file:/取得字符的平均宽度function AvgCharWidth: Word;varMetrics: TTextMetric;beginGetTextMetrics(Printer.Canvas.Handle, Metrics);Result := Metrics.tmAveCharWidth;end;file:/取得纸张的物理尺寸-单位：点function GetPhicalPaper: TPoint;varPageSize : TPoint;beginfile:/PageSize.X; 纸张物理宽度 -单位:点file:/
4、PageSize.Y; 纸张物理高度 -单位:点Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,PageSize);Result := PageSize;end;file:/2.取得纸张的逻辑宽度-可打印区域file:/取得纸张的逻辑尺寸function PaperLogicSize: TPoint;varAPoint: TPoint;beginAPoint.X := Printer.PageWidth;APoint.Y := Printer.PageHeight;Result := APoint;end;file:/纸张水平对垂直方向的纵横比例fu
5、nction HVLogincRatio: Extended;varAP: TPoint;beginAp := PaperLogicSize;Result := Ap.y/Ap.X;end;file:/取得纸张的横向偏移量-单位：点function GetOffSetX: Integer;beginResult := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);end;file:/取得纸张的纵向偏移量-单位：点function GetOffSetY: Integer;beginResult := GetDeviceCaps(Printer.Ha
6、ndle, PhysicalOffSetY);end;file:/毫米单位转换为英寸单位function MmToInch(Length: Extended): Extended;beginResult := Length/25.4;end;file:/英寸单位转换为毫米单位function InchToMm(Length: Extended): Extended;beginResult := Length*25.4;end;file:/取得水平方向每英寸打印机的点数function HPointsPerInch: Integer;beginResult := GetDeviceCaps(Pr
7、inter.Handle, LOGPIXELSX);end;file:/取得纵向方向每英寸打印机的光栅数function VPointsPerInch: Integer;beginResult := GetDeviceCaps(Printer.Handle, LOGPIXELSY)end;file:/横向点单位转换为毫米单位function XPointToMm(Pos: Integer): Extended;beginResult := Pos*25.4/HPointsPerInch;end;file:/纵向点单位转换为毫米单位function YPointToMm(Pos: Integer
8、): Extended;beginResult := Pos*25.4/VPointsPerInch;end;file:/设置纸张高度-单位：mmprocedure SetPaperHeight(Value:integer);varDevice : array0255 of char;Driver : array0255 of char;Port : array0255 of char;hDMode : THandle;PDMode : PDEVMODE;beginfile:/自定义纸张最小高度 127mmif Value 432 then Value := 432;Printer.Print
9、erIndex := Printer.PrinterIndex;Printer.GetPrinter(Device, Driver, Port, hDMode);if hDMode nil thenbeginpDMode.dmFields := pDMode.dmFields or DM_PAPERSIZE orDM_PAPERLENGTH;pDMode.dmPaperSize := DMPAPER_USER;pDMode.dmPaperLength := Value * 10;pDMode.dmFields := pDMode.dmFields or DMBIN_MANUAL;pDMode.
10、dmDefaultSource := DMBIN_MANUAL;GlobalUnlock(hDMode);end;end;Printer.PrinterIndex := Printer.PrinterIndex;end;file:/设置纸张宽度：单位-mmProcedure SetPaperWidth(Value:integer);varDevice : array0255 of char;Driver : array0255 of char;Port : array0255 of char;hDMode : THandle;PDMode : PDEVMODE;beginfile:/自定义纸张
11、最小宽度 76mmif Value 216 then Value := 216;Printer.PrinterIndex := Printer.PrinterIndex;Printer.GetPrinter(Device, Driver, Port, hDMode);if hDMode nil thenbeginpDMode.dmFields := pDMode.dmFields or DM_PAPERSIZE or DM_PAPERWIDTH;pDMode.dmPaperSize := DMPAPER_USER;file:/将毫米单位转换为 0.1mm 单位pDMode.dmPaperWid
12、th := 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; FontSi
13、ze: Integer=12);varOrX, OrY: Extended;Px, Py: Integer;AP: TPoint;Fn: TStrings;FileName: string;OffSetX, OffSetY: Integer;beginfile:/打开配置文件，读出横向和纵向偏移量tryFn := TStringList.Create;FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;if FileExists(FileName) thenbeginFn.LoadFromFile(FileName
14、);file:/横向偏移量OffSetX := StrToInt(Fn.ValuesX);file:/纵向偏移量OffSetY := StrToInt(Fn.ValuesY);endelsebeginfile:/如果没有配置文件，则生成Fn.ValuesX := 0;Fn.ValuesY := 0;Fn.SaveToFile(FileName);end;finallyFn.Free;end;X := X + OffSetX;Y := Y + OffSetY;Px := Round(Round(X * HPointsPerInch * 10000/25.4) / 10000);Py := Rou
15、nd(Round(Y * VPointsPerInch * 10000/25.4) / 10000);Py := Py - GetOffSetY; 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 使用举例在主窗体中加入
16、对 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 的值即可。其它，设置打印机和纸张类型从略。四、结束语
