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

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

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

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

选择对应的标签打印机

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

创建具名数据源

绑定具名数据源

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

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

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

设置完成后关闭

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

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

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

&& 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.)                                       
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

测试完成，打印完美！！！

2022-06-24 SUN 于苏北淮安