主题：打印条形码问题

在生成每个员工的资料卡之前，都先根据员工编号合成一个条形码，并保存为约定的图片文件，然后显示打印。我参照帮助中的WordReport案例5试着改了一下，未能实现打印选定行的条形码，请蓝老师指导

Dim tm As String = ProjectPath & "Attachments\员工资料卡.doc" '指定模板文件Dim fl As String = ProjectPath & "Reports\员工资料卡.doc" '指定目标文件

Dim mg As String = ProjectPath & "Images\条形码.wmf" '约定的图片文件

Dim wrt As New WordReport(Tables("员工"), tm, fl) '定义一个WordReport

For Each r As Row In Tables("员工").Rows '逐行生成报表

    Dim Bar As New BarCodeBuilder

    'Bar.Symbology = Barpro.Symbology.QRCode '二维码

    Bar.Symbology = Barpro.Symbology.Code39 '条形码

    'Bar.QRCodeModuleSize = 2 '二维码的放大倍数

    'Bar.Code = "姓名:" & r("姓名") & vbcrlf & "部门:" & r("部门") & vbcrlf & "电话:" & r("办公电话")

    bar.Code = r("编号") '员工编号列

    bar.SaveImage(mg, 300)

    wrt.BuildOne(r)

Next

wrt.Show() '显示报表

蓝老师，针对条形码我做了一个案例，指导修改一下代码

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:条形码.rar

谢谢蓝老师！再问一下，如果我只想显示选定的当前行，而不是逐行显示，如何修改代码

老师，上面代码保存时提示错误

蓝老师，上面的代码如果应用在Excel中怎么修改一下代码

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

不知放在什么位置

Dim r As Row = Tables("表A").current

If r IsNot Nothing AndAlso r.IsNull("条码") = False Then

    Dim tm As String = ProjectPath & "Attachments\销售统计.xls" '指定模板文件

    Dim fl As String = ProjectPath & "Reports\销售统计.xls" '指定目标文件

    Dim mg As String = ProjectPath & "Images\条形码.wmf" '约定的图片文件

    Dim wrt As New WordReport(Tables("表A"), tm, fl) '定义一个WordReport

    Dim Bar As New BarCodeBuilder

    Bar.Symbology = Barpro.Symbology.Code128 '条形码

    bar.Code = r("条码") '员工编号列

    bar.SaveImage(mg, 300)

    wrt.BuildOne(r)

    wrt.Show() '显示报表

End If

蓝老师在条形码与Excel报表.Table案例中报表事件BuildDetail代码中"SalesInvoice"指的是什么？我将下面应用到其他表中不知如何修改，请指导

If e.Book.TempLate = "SalesInvoice" Then 'SalesInvoice指？

    If e.region = "SaleOrderDetail" Then 'SaleOrderDetail(订单明细)表名

        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("Lot") Then '如果是空行或者Lot列为空

            Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片

            img.Save(ProjectPath & "Images\BarCode.gif")

        Else '否则生成条形码图片

           .....