主题：[求助]带条码的WORD报表打印

Dim t As Table = e.Form.Controls("Table1").Table
For Each r1 As Row In t.GetCheckedRows()
    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 fl2 As String = ProjectPath & "Reports\物料标签\" & r1("箱号") & "物料标签.pdf"
    Dim wrt As New WordReport(Tables("标签创建"),tm,fl1)
    wrt.Build() '逐行生成报表
    wrt.SaveToPDF(fl2) '保存为PDF文件
    wrt.Quit() '退出
    Dim Proc As New Process '打开PDF文件
    Proc.File = fl2
    Proc.Start()
Next