Dim t As Table = e.Form.Controls("Table1").Table
For Each r1 As Row In t.GetCheckedRows()
r1("已打印") = True
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = r1("箱号")
Bar.BarRatio = 0.3
Bar.BarHeight = 8
bar.SaveImage(ProjectPath & "Images\myimg.wmf",300)
Dim tm As String = ProjectPath & "Attachments\物料标签.doc" '指定模板文件
Dim fl1 As String = ProjectPath & "Reports\物料标签\" & r1("箱号") & "物料标签.doc"
Dim wrt As New WordReport(Tables("标签创建"),tm,fl1)
wrt.BuildOne(r1) '逐行生成报表
wrt.Quit() '退出
Next
加好友 
发短信
Post By：2018/10/15 20:43:00 [显示全部帖子]
