本站不再更新,欢迎光临 java开发技术网
随笔-230  评论-230  文章-8  trackbacks-0
一、概述
在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,
税票等单据上的确定位置打印输出相关的信息。在此类需求中,精确地定位单据并打印相关信息,
是解决问题的关键。一般情况下,开发者都是通过在打印机上通过重复的测试来达到实际需求。
那么,有没有简单有效而又灵活的方法实现上述功能呢?
二、基本思路

分析上述单据的特征,可以发现:此类打印输出的信息一般比较简短,不涉及到文字过长的折行处理,
另外,其打印输出的位置相对固定。因此,我们可以通过用尺子以毫米为单位,测量好每个输出信息位置
的横向和纵向坐标,作为信息输出的位置。但由于不同打印机在实际输出效果上,总是存在理论和实际位置
的偏差,因此,要求程序具有一定的灵活性,供最终用户根据需要,进行必要的位置调整。因此,可设置
一打印配置文件,用于存储横坐标和纵坐标的偏移量,用于用户进行位置校正,从而提供了一定的灵活性。
三、精确打印输出的程序实现
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.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的值即可。

  其它,设置打印机和纸张类型从略。

  四、结束语
 
  

来自: 易云飞, 时间:2004-7-23 9:51:55, ID:2726013
  如果打小于76毫米的高度的票据呢?
  不就是没法控制精度拉。
  而且我问过epson,十厘米以下一般走纸就不是非常准确,必须调整几毫米才能保证准确,如果你的高度间距恰好不被用英寸所精确确定,那么打印就有可能出现累计误差。
比如高度70mm的纸连续纸,Epson针打必须设置在719mm才能保证走到切纸位,
  

来自: 易云飞, 时间:2004-7-23 9:58:58, ID:2726045
而且,如果你用写字板做测试走纸是否走到切纸位,以上719mm也有一点点没有到位,当打多张时,累计走纸误差也就越来越大,10张就几乎10mm啦,如果调到721mm,走纸就过了切纸位一点点,调到7。20mm是最合适的,可惜epson是按英寸计算,719,720对应2。83in,
7.21 对应2。84in, 嘿嘿,没撤。  

来自: 易云飞, 时间:2004-7-23 10:14:54, ID:2726098
解决方法是有很多的,由直接也有间接,不过达到最佳效果,还得靠esc命令,不过得熟悉esc/p系列命令,亲自控制打印机的走纸。  

来自: 易云飞, 时间:2004-7-23 14:40:04, ID:2726748
 可恨的是,我还在研究,头都大了  

来自: ktsxy, 时间:2004-7-30 10:58:21, ID:2738703
   非常感谢...你们给出这么好的答案...谢谢  

来自: ktsxy, 时间:2004-7-30 11:04:42, ID:2738732
请问  d_fan 怎么联系你....我有很急的事要请教你(关于票据打印)问题.....

      你能不能发一份票据打印的Delphi 源程序给我..谢谢


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

来自: xdengni, 时间:2004-11-23 15:18:09, ID:2904656
请问  d_fan 怎么联系你....我有很急的事要请教你(关于票据打印)问题.....

      你能不能发一份票据打印的Delphi 源程序给我..我也想要,谢谢  

来自: cng81, 时间:2004-11-24 16:13:03, ID:2906618
TO:d_fan 真是感谢你提供的代码,我要好好研究一个。呵呵(敬礼!)  

来自: luckysw, 时间:2004-11-30 16:21:27, ID:2913352
d_fan 我也正在做票据打印,感谢你提供的代码 呵呵
不过,这段代码好像还有一个小问题:
要是打印的位置超出了默认的页边距怎么办?
有什么办法能设置页边距吗?  

来自: thj, 时间:2005-8-30 16:44:59, ID:3185727
还有一个重要问题:不好控制折行。  

来自: 任逍遥1205, 时间:2005-12-7 18:04:41, ID:3289184
这行代码怎么来实现横打,我加上下面这段代码也不行
PDMode^.dmFields:=DM_ORIENTATION;
PDMode^.dmOrientation :=PDMode^.dmFields or DMORIENT_LANDSCAPE;  

来自: nido, 时间:2005-12-15 8:20:29, ID:3297086
楼主 我也需要一份源代码,能否发给我呢
nidogz@gmail.com  

来自: zhangbo, 时间:2005-12-31 11:01:56, ID:3314733
请问  d_fan 怎么联系你
我有很急的事要请教你(关于票据打印)问题
你能不能发一份票据打印的Delphi 源程序给我..谢谢
我在打凭证时老差2mm,累计误差只能打10个凭证。
纸的高度是108mm
我用的是FastReport
我的QQ是382057922  

来自: zhangbo, 时间:2005-12-31 11:12:06, ID:3314753
请问  d_fan 怎么联系你
我有很急的事要请教你(关于票据打印)问题
你能不能发一份票据打印的Delphi 源程序给我..谢谢
我在打凭证时老差2mm,累计误差只能打10个凭证。
纸的高度是108mm
我用的是FastReport
我的QQ是382057922  
yhqzbb2@sina.com  
posted on 2006-04-09 18:13 有猫相伴的日子 阅读(5886) 评论(6)  编辑  收藏 所属分类: delphi

评论:
# re: 使用Delphi实现票据精确打印. 2006-11-29 10:18 | shenp
请问 d_fan 怎么联系你
我有很急的事要请教你(关于票据打印)问题
你能不能发一份票据打印的Delphi 源程序给我..谢谢
shenpingyaya@yahoo.com.cn  回复  更多评论
  
# re: 使用Delphi实现票据精确打印. 2006-12-14 14:55 | 小DD
楼主 我也想要一份源代码,能否发给我呀
QQ 417594410  回复  更多评论
  
# re: 使用Delphi实现票据精确打印. 2007-04-07 07:38 | fans
是不是你写的啊?网上到处都是这样的内容!我也可以转一下,他也可以转一下,怎么没有根据这个思路写的完整的源码?都在瞎吹!!!!  回复  更多评论
  
# re: 使用Delphi实现票据精确打印. 2007-04-09 14:22 | 有猫相伴的日子
@fans
使用delphi精确定位打印并不难....我曾经做过,2003年时,我只用delphi写过这么一个项目。这篇文章确实是转裁的。  回复  更多评论
  
# irbiecxd 2008-04-07 09:20 | irbiecxd
viojtgxs http://hljcgvmp.com ccpzpbxs fcjpcvbq  回复  更多评论
  
# re: 使用Delphi实现票据精确打印.[未登录] 2010-11-28 22:46 | jun
想问,如果我是想扫描票据成图片,再自定义控件设置模板,这个又有什么思路设计?有没有源代码可以参考!!
QQ:80415365  回复  更多评论
  

只有注册用户登录后才能发表评论。


网站导航:
 
本站不再更新,欢迎光临 java开发技术网