请教二维码标识打印功能

hzyubin

我想做一个二维码产品质量追溯系统，把各加工工序的信息输入一张表中，在窗体上自动产生一个二维码。问题：我要把这个自动产生的二维码打印成标签不能实现。已把窗体中的信息转化为报表，在报表中也增加一个QRmarker控件，可是报表中的控件不会跟着信息变化，这个二维码一式打印四份也不能实现，请哪位高手指教一下，不胜感激！

yanwei82123300

论坛的例子可以参考，修改一下！

hzyubin

我调试出来了，在报表中也要加上QRmarker数据源的代码，图上不了，看不到。

hzyubin

发上代码：Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) Dim qr As QRmaker Dim strInput As String strInput = Me.产品型号 & "/" & Me.订单号 & "/" & Me.钢种 & "/" & Me.炉号 & "/" & Me.批号 & "/" & Me.加工单位 & "/" & Me.工序 & "/" & Me.数量 & "/" & Me.日期 & "/" & Me.单号 Set qr = Me.QRmaker0.Object qr.AutoRedraw = ArOn qr.InputData = strInput qr.Refresh End Sub

xiaowuo2

希望能上传例子呀，谢谢

roych

xiaowuo2 发表于 2015-12-4 23:50
希望能上传例子呀，谢谢

http://www.office-cn.net/thread-116697-1-1.html
2013版本似乎不支持，可能需要封装，暂时没空去处理。

xiaowuo2

哦，谢谢大大

WFH6898

看不懂，汗

xlb004

111111111111111