简介：面向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 表示 A4，256 表示自定义纸 |
| 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 打印时必须显式告诉驱动纸张规格。PaperSize=9 只能表达 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) | 宽(千分之一英寸) | 高(千分之一英寸) |
|---|---|---|---|---|
| A4 | 210 | 297 | 8268 | 11693 |
| 针式三等分 | 241.3 | 139.7 | 9500 | 5500 |
| 100x150 面单 | 100 | 150 | 3937 | 5906 |
3.2 第二张表：模板控件坐标表 tab_print_field
DataWindow 模板文件里每个控件都有自己的坐标，为什么还要单独存一份？因为模板里存的是“基础坐标”，运行时打印必须用“实际坐标”，两者不能混在一起。维护人员改模板布局，只动基础坐标；换打印机调整定位，只动偏移表。
表结构如下：
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.UnitsPerInch=1000") dw_1.Modify("DataWindow.Print.PaperSize=256") dw_1.Modify("DataWindow.Print.PaperWidth='" + String(ll_width) + "'") dw_1.Modify("DataWindow.Print.PaperLength='" + String(ll_height) + "'")参数说明：PaperSize=256 是自定义纸型，设置了它，PaperWidth、PaperLength 才会生效。如果直接用 PaperSize=9 走 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。连页纸打孔处本身有误差，必须取平均值，不能只量一张。设置 PaperSize=256 后，再去打印服务器属性里确认纸张规格没被替换。
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 等于 -4，offset_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 新机接入的标准动作
我现在接入新打印机的顺序已经固定下来：先在驱动面板建好自定义纸张，再打印校准页，量好偏差回填偏移表，最后用正式模板连续打印三份验证。三份分别是一份空白版、一份带业务数据的版本、一份连续三页的版本，全部合格才算通过。
从那以后我每次接新打印机，都强制先走一遍校准页流程，宁可提前多花十分钟，不在客户现场调一下午坐标。这套流程已经成为我做票据打印模块的固定习惯，也希望帮到你。
本文还有配套的精品资源，点击获取
