以下是抄来的，感谢之。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Delphi 中票据凭证的精确打印
Delphi 中票据凭证的精确打印
一、概述
在银行 ,税务 ,邮政等行业的实际工作中 ,经常涉及到在印刷好具有固定格式的汇款单 ,储蓄凭证 ,税票等单据上的确定位置打印输出相关的信息。在此类需求中 ,精确地定位单据并打印相关信息 ,是解决问题 ] 的关键。一般情况下 ,开发者都是通过在打印机上通过重复的测试来达到实际需求。那么 ,有没有简单有效而又灵活的方法实现上述功能呢？
二、基本思路
分析上述单据的特征 ,可以发现 : 此类打印输出的信息一般比较简短 ,不涉及到文字过长的折行处理 ,另外 ,其打印输出的位置相对固定。因此 ,我们可以通过用尺子以毫米为单位 ,测量好每个输出信息位置的横向和纵向坐标 ,作为信息输出的位置。但由于不同打印机在实际输出效果上 ,总是存在理论和实际位置的偏差 ,因此 ,要求程序具有一定的灵活性 ,供最终用户根据需要 ,进行必要的位置调整。因此 ,可设置一打印配置文件 ,用于存储横坐标和纵坐标的偏移量 ,用于用户进行位置校正 ,从而提供了一定的灵活性。
三、精确打印输出的程序实现
1 ． 在 Delphi 中新建一个名为 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:// 取得纸张的物理尺寸 --- 单位 : 点
function GetPhicalPaper: TPoint;
var
PageSize : TPoint;
begin
file://PageSize.X;
纸张物理宽度 - 单位 : 点
file://PageSize.Y;
纸张物理高度 - 单位 : 点
Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
Result := PageSize;
end;
file://2.取得纸张的逻辑宽度 -- 可打印区域
file:// 取得纸张的逻辑尺寸
function PaperLogicSize: TPoint;
var
APoint: TPoint;
begin
APoint.X := Printer.PageWidth;
APoint.Y := Printer.PageHeight;
Result := APoint;
end;
file:// 纸张水平对垂直方向的纵横比例
function HVLogincRatio: Extended;
var
AP: TPoint;
begin
Ap := PaperLogicSize;
Result := Ap.y/Ap.X;
end;
file:// 取得纸张的横向偏移量 - 单位 : 点
function GetOffSetX: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
end;
file:// 取得纸张的纵向偏移量 - 单位 : 点
function GetOffSetY: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
end;
file:// 毫米单位转换为英寸单位
function MmToInch(Length: Extended): Extended;
begin
Result := Length/25.4;
end;
file:// 英寸单位转换为毫米单位
function InchToMm(Length: Extended): Extended;
begin
Result := Length*25.4;
end;
file:// 取得水平方向每英寸打印机的点数
function HPointsPerInch: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
end;
file:// 取得纵向方向每英寸打印机的光栅数
function VPointsPerInch: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
end;
file:// 横向点单位转换为毫米单位
function XPointToMm(Pos: Integer): Extended;
begin
Result := Pos*25.4/HPointsPerInch;
end;
file:// 纵向点单位转换为毫米单位
function YPointToMm(Pos: Integer): Extended;
begin
Result := Pos*25.4/VPointsPerInch;
end;
file:// 设置纸张高度 - 单位 :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:// 设置纸张宽度 : 单位 --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:// 将毫米单位转换为 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:// 打开配置文件 ,读出横向和纵向偏移量
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:// 如果没有配置文件 ,则生成
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 轴坐标
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.begin
Doc;
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 下调试通过。
