简介面向PowerBuilder程序员的PB12票据打印解决方案针对12版数据窗口与报表功能解决企业应用中的票据版式设计、数据填充、多页连续打印等实际需求也适合需要开发自定义纸张票据的桌面系统。压缩包共18个文件其中以pbl、pbt、pbw工程源码为核心另有htm说明文档、gif操作演示、jpg界面截图、css样式表及txt使用须知整体体积仅78KB轻量易部署便于快速对照实践。目前已有257人学习适合中初级PB开发者借鉴参考。包内“自定义票据打印”模块给出了可直接运行的示例数据窗口配套“自定义纸张打印票据”操作页从窗体布局、字段绑定到打印机纸张方向、页边距等参数设置均有说明资源使用特别说明.txt还提供了环境配置与调用的注意事项。研读后可掌握利用数据窗口对象制作票据模板、通过脚本实现动态数据填充和打印逻辑控制的关键思路工程中的pbl对象可移植复用有助于快速搭建符合业务要求的打印模块减少从零开发的工作量。1. PB12票据打印资源拆解DataWindow 套打为什么能扛住打印错位PB12票据打印听起来就是 DataWindow.Print() 一行代码的事但实际项目里最容易翻车的恰恰就是这个环节。我见过一个物流系统模板在开发机上打得整整齐齐拉到现场三台打印机输出三种结果一台整体偏移 2mm一台被等比放大了 5%还有一台中文全成了方块。这套资源是某开发者把线上跑了两年的 PB12 票据打印模块拆出来的核心思路是“固定模板 参数驱动”用纸张、控件坐标、打印机偏移三张表管住所有变量换机型不用重画模板。适合还在维护 PB10 到 PB12 遗留项目的工程师尤其是经常跟针式和热敏打印机打交道的人。2. 打印方案选型为什么主推 DataWindow 而不是 GDI 直绘PB12 下的票据打印可选的路线大致有三条DataWindow 直接打印、调用系统 GDI 函数自绘、引入第三方打印控件。三条路我都趟过先给结论如果项目里已经是 DataWindow 打天下票据模板又没有复杂的动态排版DataWindow 套打应该作为首选。GDI 直绘和第三方控件是特定场景的补位方案一上来就上它们大概率是把简单问题搞复杂。2.1 DataWindow 套打的坐标体系比想象中可靠DataWindow 打印定位靠的是它自己的逻辑坐标不是打印机物理像素。模板上每个控件都有 X、Y、Width、Height这组坐标在打印时按千分之一英寸解释。也就是说你在模板编辑界面里拖出来的一英寸内容打印驱动只要不额外缩放输出就是一英寸。这直接解决“换一台打印机就得重排模板”的痛点坐标是逻辑标尺驱动对不齐时用偏移量修正。关键打印属性集中在 DataWindow 的 Print 对象里常用参数如下属性作用常用值Print.UnitsPerInch模板坐标单位密度1000千分之一英寸Print.PaperSize纸张规格枚举9 表示 A4256 表示自定义纸Print.PaperLength自定义纸长度单位千分之一英寸Print.PaperWidth自定义纸宽度单位千分之一英寸Print.Printer指定目标打印机传打印机名Print.CancelDialog是否弹打印任务框传入 no 关闭正确理解这套坐标还要注意原点的约定。DataWindow 模板里所有对象的 X、Y 相对页面左上角计算带边框的矩形、竖线、斜线对象也一样运行时统一修改它们的坐标即可整体平移。线条宽度在不同分辨率下会有轻微差异资源包里所有模板的线条宽度固定为整数点值不要设小数否则同一模板换驱动后粗细会不一致。这里有一条血泪经验DataWindow 的 UnitsPerInch 尽量不要换成其他数值。改成 1200、1440 表面上是提高了定位精度但字体缩放、线条宽度、预览比例都会跟着变排查起来非常痛苦。模板统一锁死在 1000打印环境适配全部交给偏移表去解决。2.2 GDI 直绘的真相能力虽强接入成本极高有人会问直接调 GDI 函数画一张完全受控的打印页不更稳吗理论上确实存在这个方案TextOut、LineTo、Rectangle 可以精确到像素级偏移、切纸、打印头控制都能拿到手。但现实是 PB12 的外接 API 调用要先面对结构体传参StartDoc 需要 DOCINFO 结构PowerBuilder 把结构体传给动态库函数的方式非常别扭。就算绕过结构体坐标换算、字体句柄、DPI 适配全得自己写调试周期以周为单位。一位做打印机驱动的朋友说得很直白为了输出一张送货单去接管打印机层控制权属于拿牛刀杀鸡。GDI 直绘真正适用的只有两种场景一是对对齐要求极高的扫描一体单比如快递面单上条码与边框严格对位二是模板中需要大量动态自绘图形现有 DataWindow 表达不了。真遇到这类需求把 GDI 封装成一个 NVO 对象对外只暴露几个方法别把绘制逻辑摊在窗口代码里。2.3 第三方控件与数据文件导出的适用边界第三方打印控件的卖点是省心条码、二维码、富文本框都是现成组件。但对 PB12 版本兼容性参差不齐上线部署需要注册 DLL换机器容易缺文件出了问题还不好定位。数据文件导出把内容导出成文本或标签文件再交给其他程序打适合大批量、格式简单的编码打印比如批量打合格证、生产批次贴标。但它画不了表格线套打场景下直接出局。这套资源选的主链路很明确DataWindow 做模板载体三张参数表做配置中心校准工具做兜底。下面把这条链路逐层拆开先讲三张参数表的设计。3. 基础参数表设计纸张、坐标映射、打印机偏移三张表怎么建打印模块想做到“换机器不重做模板”核心是把代码和物理环境剥离开。具体手段就是建三张表纸张定义表、模板控件坐标表、打印机偏移校准表。这套结构在资源包里已经带建表脚本导入即可用。3.1 第一张表纸张定义表 tab_print_paper票据打印先定纸。A4、连页纸、针式三等分的送货单、热敏小票各有各的尺寸而 DataWindow 打印时必须显式告诉驱动纸张规格。PaperSize9 只能表达 A4其他纸型都需要自定义纸张再加长宽建表脚本如下create table tab_print_paper ( paper_code char(10) primary key, paper_name varchar(40), width_mm numeric(10,1), height_mm numeric(10,1), paper_size_mode smallint default 256, driver_cut char(1) default N );字段含义很直接width_mm 和 height_mm 存物理尺寸代码里乘 39.3701 转成千分之一英寸再交给 PaperWidth、PaperLength。paper_size_mode 默认 256 表示自定义纸型正常不需要改。driver_cut 是给热敏打印机用的自动切纸开关维护人员在驱动侧开启切纸即可代码不直接发切纸指令原因放到避坑章节。这里补一张常用换算表做连页纸时直接查纸张宽(mm)高(mm)宽(千分之一英寸)高(千分之一英寸)A4210297826811693针式三等分241.3139.795005500100x150 面单100150393759063.2 第二张表模板控件坐标表 tab_print_fieldDataWindow 模板文件里每个控件都有自己的坐标为什么还要单独存一份因为模板里存的是“基础坐标”运行时打印必须用“实际坐标”两者不能混在一起。维护人员改模板布局只动基础坐标换打印机调整定位只动偏移表。表结构如下create table tab_print_field ( template_no char(20), control_name varchar(30), field_desc varchar(60), base_x numeric(10,1), base_y numeric(10,1), font_name varchar(40), font_size numeric(6,2), align smallint default 0 );control_name 存的是 DataWindow 里的控件名不一定是数据库字段名。比如“收货人”这一项在模板里可能叫 txt_receiver它是一个文本控件不是数据列。这样设计有个好处列、文本、矩形线框统一走 Modify 改坐标不用区分对象类型。命名规范在这是刚需。模板里的控件必须按业务语义命名比如 txt_invoice_no、txt_amount、ln_top_border、rc_body_box。如果维护者看到的是 fld_1、fld_2、text_3 这种名字这套表就没法维护。base_x、base_y 从模板导出时填入坐标单位同样是千分之一英寸。3.3 第三张表打印机偏移校准表 tab_print_offset换打印机后出现整体偏移绝大多数原因是驱动默认边距不同。正确做法是记录“这台打印机在这种纸张下实际打印点相对模板原点的偏移量”而不是去改模板。create table tab_print_offset ( printer_name varchar(80), template_no char(20), offset_x numeric(10,1) default 0, offset_y numeric(10,1) default 0, scale_x numeric(6,4) default 1, scale_y numeric(6,4) default 1 );运行时代码按照下面的公式换算坐标实际X 基础X * scale_x offset_x 实际Y 基础Y * scale_y offset_yscale_x、scale_y 是驱动做了非正常缩放时的补偿系数正常情况保持 1。偏移量和缩放系数不是肉眼估出来的而是从校准页上量出来回填的具体过程在最后一章讲。这张表是整套资源里最关键的部分有了它新打印机接入就是插一条记录的事。4. 核心打印代码实现取数、改坐标、触发打印的完整 PB 流程前三章把结构和选型讲完了这一章给可直接落地的代码。流程分四步装载纸型、读取偏移与平移控件、触发打印、处理切纸。下面按顺序拆开讲。4.1 装载纸型把毫米换算成千分之一英寸纸张参数从 tab_print_paper 读出来后先换算再写进 DataWindow 的 Print 对象。注意 Modify 字符串里的引号拼接变量一定要用 String() 显式转换dec ld_width_mm, ld_height_mm long ll_width, ll_height SELECT width_mm, height_mm INTO :ld_width_mm, :ld_height_mm FROM tab_print_paper WHERE paper_code :ls_paper_code USING ltr_handle; ll_width Long(ld_width_mm * 39.3701) ll_height Long(ld_height_mm * 39.3701) dw_1.Modify(DataWindow.Print.UnitsPerInch1000) dw_1.Modify(DataWindow.Print.PaperSize256) dw_1.Modify(DataWindow.Print.PaperWidth String(ll_width) ) dw_1.Modify(DataWindow.Print.PaperLength String(ll_height) )参数说明PaperSize256 是自定义纸型设置了它PaperWidth、PaperLength 才会生效。如果直接用 PaperSize9 走 A4后两个长宽值会被忽略。这里 39.3701 是毫米转千分之一英寸的系数换算时用 Long() 取整避免小数位太多影响 Modify 解析。4.2 应用偏移按公式逐个控件平移坐标模板基础坐标在 tab_print_field 里打印机偏移在 tab_print_offset 里运行时把它们组合成实际坐标再通过 Modify 改到对应控件上。核心是只改坐标不重建模板string ls_control, ls_modify long ll_base_x, ll_base_y, ll_real_x, ll_real_y long ll_offset_x, ll_offset_y dec ld_scale_x, ld_scale_y SELECT control_name, base_x, base_y INTO :ls_control, :ll_base_x, :ll_base_y FROM tab_print_field WHERE template_no :ls_template_no USING ltr_handle; SELECT offset_x, offset_y, scale_x, scale_y INTO :ll_offset_x, :ll_offset_y, :ld_scale_x, :ld_scale_y FROM tab_print_offset WHERE printer_name :ls_printer_name AND template_no :ls_template_no USING ltr_handle; ll_real_x Long(ll_base_x * ld_scale_x) ll_offset_x ll_real_y Long(ll_base_y * ld_scale_y) ll_offset_y ls_modify ls_control .X String(ll_real_x) dw_1.Modify(ls_modify) ls_modify ls_control .Y String(ll_real_y) dw_1.Modify(ls_modify)这段代码是一个单控件的处理逻辑实际使用时在外面套一层循环遍历 tab_print_field 里某个模板的所有控件。Modify 失败会返回空字符串所以执行后检查一下返回值重点查控件名是否和模板里完全一致包括大小写。锁定的对象也会导致 Modify 失败模板开发阶段不要开对象锁定。4.3 触发打印关闭弹窗并指定打印机所有坐标设置完成后调用 DataWindow 的 Print 方法。PB12 的 Print 带一个布尔参数用来控制是否弹打印任务对话框dw_1.Object.DataWindow.Print.Printer ls_printer_name dw_1.Object.DataWindow.Print.CancelDialog no dw_1.Print(TRUE)Print(TRUE) 表示不弹窗直接提交打印任务。CancelDialog 控制的是任务投递时的等待提示批量打印时不关掉会反复弹屏Printer 属性如果留空作业会走驱动默认打印机批量打印时建议显式指定避免共享打印机把任务排到别的队列里。4.4 切纸动作交给驱动还是交给代码DataWindow 本身没有切纸指令入口资源包的处理方式是热敏打印机在驱动面板开启“按页切纸”纸张表里 driver_cut 字段做标注代码不额外处理。想用系统 API 发切纸指令也可以但那要自己处理后台打印句柄和文档结构体调试成本高驱动一升级就容易翻车不建议作为通用路径。自动切纸是打印机驱动层该管的事代码层别越权。5. 避坑排查PB12票据打印现场最典型的五个故障与处理记录打印故障很少是代码逻辑问题大多是环境和约定问题。下面五条是从实际项目里逐条踩出来并记录下来的按“现象 → 原因 → 解决”写方便直接照查。5.1 预览正常真机打印整体错位现象模板预览一切正常办公室激光打印机也准换了现场针式打印机后整体向右下偏移 2 到 3mm。原因不同驱动对不可打印边距的默认值不同。激光机边距小针式机起始位置受驱动设置影响模板原点按预览坐标计算实际物理起点却偏了。这不是代码错误而是设备差异。解决在目标打印机上先打一次校准页把横向、纵向偏移量记入 tab_print_offset。这个偏移量是机器固有属性和模板无关记录一次永久复用下次换机直接查表。5.2 连续纸越打越偏误差逐张累积现象只打两三页看不出问题批量打印五十份时每三张错位多一点打到最后完全失控。原因纸张定义表里的高度和实际纸张高度不一致。驱动按这个高度走纸高度差了零点几毫米单张看不出几十张下来累积成大偏移。还有可能是驱动没有正确识别自定义纸张被悄悄替换成了某个预设纸型。解决用直尺量十张连页纸的总高除以十得到单张平均高度填入 height_mm。连页纸打孔处本身有误差必须取平均值不能只量一张。设置 PaperSize256 后再去打印服务器属性里确认纸张规格没被替换。5.3 最右侧栏位被裁断现象A4 模板排得很满打印出来“备注”那一列少了一截预览里却是完整的。原因模板右边界超出了 PaperWidth 对应的可打印范围。PaperWidth 按物理纸宽设置但驱动还有不可打印边距实际可用宽度比物理宽度窄。解决设计模板时右侧预留 5mm 安全距离或者按实际可打印区域重新核算控件宽度。用 scale_x 做横向压缩是最后手段根治还是要靠模板布局。5.4 驱动勾了“缩放至页面”所有坐标作废现象同一台打印机、同一份模板某天所有票打出来缩小了 4%间隔变大整体比例不对。原因有人动过打印机驱动的缩放设置驱动对打印作业做了整体缩放。DataWindow 的千分之一英寸坐标被等比改写预览还是原来的样子输出已经变了。解决把驱动缩放模式改回“实际大小”或 100%。这个坑的隐蔽之处在于改设置的人大多是无意的。排查顺序上模板没动、偏移表没变但输出变了第一步就去查驱动设置不要先怀疑代码。5.5 中文变成方块或乱码现象模板里明明是宋体打印出来变成方块同一份模板换一台机器又正常。原因目标打印机驱动映射不到模板指定的字体时会用系统默认字体替代中文在部分驱动下被按 ANSI 解释渲染出错。有的打印服务器上压根没装同名字体。解决模板里的中文控件统一用系统自带中文字体比如宋体不要用第三方字体。所有模板统一设置字符集为 DEFAULT_CHARSET运行时不要改字体名。如果还是乱码检查打印服务器有没有安装同名中文字体。6. 进阶实践用九宫格校准页十分钟完成新打印机坐标适配说到新打印机接入我强烈不建议凭感觉改坐标。每台打印机的驱动都有自己的脾气靠打印一次改一次坐标能调上一整天。这套资源里附带的校准窗口思路很朴素先打印一张带九宫格和刻度的标定页量出偏差回填偏移表再验证一次十分钟就能完成一台新机接入。6.1 标定页设计校准窗口会在 A4 纸上端画出九宫格每个交叉点旁边标注该点的基准坐标。比如第二列第一行的交叉点基准坐标是横向 2000、纵向 1000打印出来后用直尺量实际线条位置假设量出来是 1996 和 1002那么 offset_x 就是 1996 减 2000 等于 -4offset_y 就是 1002 减 1000 等于 2。把这两个值录入偏移表。update tab_print_offset set offset_x -4, offset_y 2 where printer_name :ls_printer and template_no :ls_template;如果横向纵向还有缩放需要量纸面上两个交叉点的实际距离和基准距离做除法得到 scale_x、scale_y。例如两个点之间基准距离是 5000量表出来只有 4799那么 scale 就是 0.9598。6.2 新机接入的标准动作我现在接入新打印机的顺序已经固定下来先在驱动面板建好自定义纸张再打印校准页量好偏差回填偏移表最后用正式模板连续打印三份验证。三份分别是一份空白版、一份带业务数据的版本、一份连续三页的版本全部合格才算通过。从那以后我每次接新打印机都强制先走一遍校准页流程宁可提前多花十分钟不在客户现场调一下午坐标。这套流程已经成为我做票据打印模块的固定习惯也希望帮到你。本文还有配套的精品资源点击获取