自动生成二维码条形码的软件（自动生成二维码）

自动生成二维码条形码的软件（自动生成二维码）​ 说明一下，二维码和条形码直接使用bartender的控件，传递值给其后会自动生成相应的码。 这下子，我将标签数据源绑定的数据库全部删除，改为屏幕数据，就是标签只接收传递的数据，不需要主动去连接数据库了。全部修改完毕。再次测试点打印按钮，能调出bartender软件打开我的标签了，并且标签上的数据全部是我传递过去的。测试打印，正常打印出标签。终于大功告成。剩下的就是完善相应的程序界面，把需要打印的地方都添加按钮和代码，以及修改对应的标签。全部完工后，直接在开发系统中打印出标签，瞬间觉得自己开发的系统变得高大上了，哈哈。 原因可能就在这里，我在标签的常规属性中设置的对象名只是标签对象字符串名称，而传递过来的值要给已命名子字串，但我这里面是空的，于是我开始研究如何添加已命名子字串，到处找都没有这方面的介绍，实在没有办法，我又准备放弃了。但我心想，前面那么多难题我都解决了，这最后一步放弃，是

自己开发的access程序调用bartender自动生成二维码、条形码并打印标签。

最近我遇到了需要打印资产标签的情况，之前的做法是先在开发的系统里把资产信息填写好，然后打开用bartender制作的标签模板，标签连接数据库，打印时选择想要的记录再打印。这样的操作也能实现，但是很不方便的是，在一大堆记录里查找我想打印的很麻烦，虽然连接数据库那里也能写SQL语句或者设置筛选条件，但是打印那里不能设置，每次需要两边切换。很早我就知道这个软件很强大，支持其它软件调用打印，于是我就想研究一下，能不能把它集成到我开发的系统上。经过两天时间的研究，我终于成功实现在我的系统里直接打印标签，现在我将整个过程记录一下，以便以后查询，同时也分享给有同样需求的小伙伴，避免再走弯路。

在bartender官网上找不到关于集成的文档，都是一些基础操作的。又网上找了一大圈，倒是找到了一些，但是是其它语言的集成资料，后来好不容易找了一份EXCEL VBA集成的文章，还提供了源码，然后我就开始在我的系统制作打印界面，其实就是在原来的界面添加打印按钮而已，把代码放入单击事件，并进行相应的调整。我修改后的代码如下：

然后我就开始测试，点打印按钮后，代码老是报“运行时错误429:ActiveX 部件无法创建对象”的错误，调试发现代码执行到这里：Set btApp = CreateObject("bartender.application")，无论怎么重新引用控件，也按在软件网找到的同学的方法，重新注册了所有控件都不得行，于是又开始在网上找解决办法。这次是什么办法都试了，也没有解决，我自己都打算放弃了，忽然想到，会不会是我的bartender专业版软件版本不行，别人EXCEL都只是引用就可以，我也同样引用没有错啊。于是我又仔细看了一遍那篇文章，截图比较小，我放大看非常模糊，但还是依稀看出了对方所用的bartender版本是automation版的，我想起这个软件分了很多个版本的，估计专业版不支持。于是我将软件重新配置成automation版，再次测试打印，对了，果然没有再报429错误了。

但是又出现了新问题，报“未找到已命名子字串”错误，调试发现代码走到“btFormat.SetNamedSubStringValue "type" Me.sfrList![资产类型]”，开始给标签传值了，打桩输出检查了值也是正确获取的，看来问题是出在标签上了。于是我又到标签上查找原因。又查看了bartender操作手册，网上搜索，都无果。偶然发现数据源上有个已命名子字串，里面是空的。

原因可能就在这里，我在标签的常规属性中设置的对象名只是标签对象字符串名称，而传递过来的值要给已命名子字串，但我这里面是空的，于是我开始研究如何添加已命名子字串，到处找都没有这方面的介绍，实在没有办法，我又准备放弃了。但我心想，前面那么多难题我都解决了，这最后一步放弃，是不是太可惜了。于是又静下心来，一个功能一个功能去测试、检查。偶然间，我在标签数据源设置里面的“共享/名称”里面输入文字，发现显示在已命名子字串里面了，嗨，原来是在这里设置，害我差点就放弃了。

这下子，我将标签数据源绑定的数据库全部删除，改为屏幕数据，就是标签只接收传递的数据，不需要主动去连接数据库了。全部修改完毕。再次测试点打印按钮，能调出bartender软件打开我的标签了，并且标签上的数据全部是我传递过去的。测试打印，正常打印出标签。终于大功告成。剩下的就是完善相应的程序界面，把需要打印的地方都添加按钮和代码，以及修改对应的标签。全部完工后，直接在开发系统中打印出标签，瞬间觉得自己开发的系统变得高大上了，哈哈。

​ 说明一下，二维码和条形码直接使用bartender的控件，传递值给其后会自动生成相应的码。