在生成每个员工的资料卡之前，都先根据员工编号合成一个条形码，并保存为约定的图片文件，然后显示打印。我参照帮助中的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() \'显示报表

蓝老师，上面的代码如果应用在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