主题：打印条形码问题

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