14x1.5cm竖向标签有点难,VFP调用BarTender来打印

2022-10-27 10:34:50 浏览数 (1)

测试环境说明: WIDNOWS 10 64bit PRO(低版本无法安装BarTender2022) 打印机 佳博GP-1324D VFP9 SP2 7423

这个软件用来打标签是真不错,很好上手。

通过新建文档向导来新建14cmx1.5cm的竖向标签

选择对应的标签打印机

设置单列还是多列等相关设置

创建具名数据源

绑定具名数据源

选中文本或是标签二维码,右击-》选择属性

选中数据源页签,点击手势图标进行选择

这里有更改数据源名称向导,可以在列表内选择对应的数据源

设置完成后关闭

按照如上图操作,把所有需要变量的文本或二码码全部指定具名数据源.

将制作好的标签存在自己需要调用的位置。

然后就可以透过VFP程式打印标签了,下面是代码:

代码语言:javascript复制
&& TMP301是临时表
&& 创建BarTender的对象     
XX=CREATEOBJECT("BarTender.Application")                           
&& 打开标签,返回标签对象                                                   
PrintLab=XX.FORMATS.OPEN(MCPATH_FRM   'MC43011.BTW',.T.,"")       
&& 参数1:具名数据源名称(注意区分大小),参数2:值PrintLab.SetNamedSubStringValue("fastnomsg",TMP301.FASTNOMSG)      

PrintLab.SetNamedSubStringValue("partnomsg",TMP301.PARTNOMSG)      

PrintLab.SetNamedSubStringValue("partspecmsg",TMP301.PARTSPECMSG)  

PrintLab.SetNamedSubStringValue("partnamemsg",TMP301.PARTNAMEMSG)  

PrintLab.SetNamedSubStringValue("qrcorerpt",TMP301.PARTNOMSG)      
&& 输出到打印机,参数2:.F.=不显示选择打印机的窗口。传递的参数不要搞错不然会死机
PrintLab.Printout(.T.,.F.)

测试完成,打印完美!!!

2022-06-24 SUN 于苏北淮安

bit

0 人点赞