- 浏览: 133299 次
- 性别:
文章分类
最新评论
一、概述
在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。在此类需求中,精确地定位单据并打印相关信息,是解决问题]的关键。一般情况下,开发者都是通过在打印机上通过重复的测试来达到实际需求。那么,有没有简单有效而又灵活的方法实现上述功能呢?
二、基本思路
分析上述单据的特征,可以发现:此类打印输出的信息一般比较简短,不涉及到文字过长的折行处理,另外,其打印输出的位置相对固定。因此,我们可以通过用尺子以毫米为单位,测量好每个输出信息位置的横向和纵向坐标,作为信息输出的位置。但由于不同打印机在实际输出效果上,总是存在理论和实际位置的偏差,因此,要求程序具有一定的灵活性,供最终用户根据需要,进行必要的位置调整。因此,可设置一打印配置文件,用于存储横坐标和纵坐标的偏移量,用于用户进行位置校正,从而提供了一定的灵活性。
三、精确打印输出的程序实现
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的值即可。
发表评论
-
Delphi中的接口和抽象类
2010-12-06 16:30 552接口:Interface Delphi中接口的关键字 ... -
Delphi编程中流的应用
2011-05-25 11:19 763一、流的概念 流简单说是建立在面向对象基础上的一种 ... -
Pascal与C的指针
2011-05-26 13:49 983大家都认为,C语言 ... -
Delphi编程的一些资料1
2011-06-16 10:40 705手机 SMS PDU 格式参考手册 1.相关的GSM AT指 ... -
Delphi编程的一些资料2
2011-06-16 10:43 700算法步骤: 一、地址 ... -
Delphi编程的一些资料3
2011-06-16 10:46 766一、一般命令 AT+CGMI ... -
Delphi编程的一些资料4
2011-06-16 10:48 764七、追加服务命令 AT+CCFC 呼叫继续 ... -
Delphi编程的一些资料5
2011-06-16 10:53 756十三、SIM卡工具箱命令 AT+STSF ... -
短信文本模式下的解码方法
2011-06-16 10:57 774接收短信有两种编码格式: 1.中英文混合的为unicode 2 ... -
通过注册表获取当前所有串口号
2011-06-16 15:49 2690usesWindows, Messages, SysUtils ... -
Delphi 分隔GSMModem接收到的短信字符串
2011-06-20 10:37 1067Delphi 分隔GSMModem接收到的短信字符串 ... -
Delphi流的操作
2011-06-22 14:34 788Delphi流的操作 一、流的概念 流简单说是建立在面 ... -
Delphi、PChar和Char数组的比较
2011-06-22 16:14 1237Delphi、PChar和Char数组的 ... -
Delphi 判断数据库表是否存在
2011-06-26 12:54 1030//根据表名和一个数据库连接判断表是否存在 function ... -
Delphi ListView基本用法大全
2011-08-22 17:27 1332Delphi ListView基本用法大全 //增加项或列( ... -
Delphi2010 无效的类别字符串, ProgID: "ADOX.Catalog"问题
2012-07-18 09:56 2048程序中用ADOX创建的Access数据库,一直运行正常,其 ... -
Delphi 禁用TEdit右键菜单及复制粘贴
2012-07-19 11:24 1360Delphi 禁用TEdit右键菜单及复制粘贴简的单方法 ... -
Delphi TStrings取得Ini文件键值对
2012-07-20 07:37 1328Delphi TStrings取得Ini文件键值对的简单 ... -
Delphi 压缩Access数据库
2012-07-21 12:21 1599由于Access数据库在反复使用过程中会自动增大,Del ...
相关推荐
在此类需求中,精确地定位单据并打印相关信息, 是解决问题的关键。一般情况下,开发者都是通过在打印机上通过重复的测试来达到实际需求。 那么,有没有简单有效而又灵活的方法实现上述功能呢?
Delphi凭证票据管理系统,内附SQL Server数据,三大功能模块: 一、项目管理:摘要管理、会计科目管理; 二、凭证管理:凭证录入、凭证审核、凭证过账; 三、凭证查询:主要快速查询已有凭证数据; SQL数据库备份文件在...
delphi票据打印,学习delphi票据打印的方法
delphi票据打印软件源码 数据库access的
SQL+Delphi 凭证票据管理系统..rar
delphi 实现打印预览和打印过程代码。
Delphi票据打印系统源代码,给一个小企业老板做的一个打印票据的小工具软件。供同行们参考吧。
Delphi中使用Olecontainer打开Word文档后,并实现打印功能
Delphi下zyPrintcrt超强万能打印控件(设计+预览+打印) 想怎么打印就怎么打印,dll方式调用,简单高效快捷。
delphi 精确延时 函数 delphi 精确延时 函数 delphi 精确延时 函数
给朋友帮忙做的一个报表打印程序,现将完整源码奉献给大家,可直EXE接运行,比较适合初学者学习Delphi 开发桌面程序学习, 控件用到 fastreport,raize,Ehlib 主要介绍fastreport报表打印,数据库连接开发,程序注册...
在DELPHI中如何调用打印机打印图片的例子。
【Delphi WEB打印服务】通过请求api,实现打印设计、打印预览、打印,即可做到本地和远程打印
DELPHI 正确打印PDF文件,解决PDF文件打印顺序问题。好用请帮忙给个5星
票据打印软件,非常灵活
精确度很高的票据打印,用delphi+access+reportbuilder
delphi7做的精确打印程序,源码,可以自己调试,直接可以看到效果!!
Delphi PrintText打印文本文件内
最新做项目需要使用delphi打印条形码,花了几天时间找到了相应的控件,提供出代码给大家使用
【Delphi WEB打印服务】通过请求api,实现打印设计、打印预览、打印,即可做到本地和远程打印.zip