主题：打印条形码问题

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

1楼代码测试没有问题，注意不能生成空条码

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

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

http://www.foxtable.com/webhelp/topics/1145.htm