测试环境说明: 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 于苏北淮安