請(qǐng)教二維碼標(biāo)識(shí)打印功能

hzyubin

我想做一個(gè)二維碼產(chǎn)品質(zhì)量追溯系統(tǒng)，把各加工工序的信息輸入一張表中，在窗體上自動(dòng)產(chǎn)生一個(gè)二維碼。問(wèn)題：我要把這個(gè)自動(dòng)產(chǎn)生的二維碼打印成標(biāo)簽不能實(shí)現(xiàn)。已把窗體中的信息轉(zhuǎn)化為報(bào)表，在報(bào)表中也增加一個(gè)QRmarker控件，可是報(bào)表中的控件不會(huì)跟著信息變化，這個(gè)二維碼一式打印四份也不能實(shí)現(xiàn)，請(qǐng)哪位高手指教一下，不勝感激！

yanwei82123300

論壇的例子可以參考，修改一下！

hzyubin

我調(diào)試出來(lái)了，在報(bào)表中也要加上QRmarker數(shù)據(jù)源的代碼，圖上不了，看不到。

hzyubin

發(fā)上代碼：Private Sub 主體_Format(Cancel As Integer, FormatCount As Integer) Dim qr As QRmaker Dim strInput As String strInput = Me.產(chǎn)品型號(hào) & "/" & Me.訂單號(hào) & "/" & Me.鋼種 & "/" & Me.爐號(hào) & "/" & Me.批號(hào) & "/" & Me.加工單位 & "/" & Me.工序 & "/" & Me.數(shù)量 & "/" & Me.日期 & "/" & Me.單號(hào) Set qr = Me.QRmaker0.Object qr.AutoRedraw = ArOn qr.InputData = strInput qr.Refresh End Sub

xiaowuo2

希望能上傳例子呀，謝謝

roych

xiaowuo2 發(fā)表于 2015-12-4 23:50
希望能上傳例子呀，謝謝

http://ctxi.cn/thread-116697-1-1.html
2013版本似乎不支持，可能需要封裝，暫時(shí)沒(méi)空去處理。

xiaowuo2

哦，謝謝大大

WFH6898

看不懂，汗

xlb004

111111111111111