1楼代码测试没有问题，注意不能生成空条码
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 '逐行生成报表
If r.IsNull("编号") = False Then
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39 '条形码
bar.Code = r("编号") '员工编号列
bar.SaveImage(mg, 300)
wrt.BuildOne(r)
End If
Next
wrt.Show() '显示报表
加好友 
发短信
Post By：2025/3/4 8:49:00 [显示全部帖子]
