Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = "123456"
Bar.BarRatio = 0.3
Bar.BarHeight = 8
bar.SaveImage(ProjectPath & "Images\\myimg.wmf",300)
\'生成Excel报表：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售统计.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\\销售统计.xls")

以上标签只是在EXCEL里加一个标签

如果用

For Each r As Row In Tables("表A").Rows
    Bar.Code = r("条码")

Bar.BarRatio = 0.3
Bar.BarHeight = 8
bar.SaveImage(ProjectPath & "Images\\myimg.wmf",300)
Next

那么对于myimg.wmf也只有一个文件名，如何在模板及实际导出报表时按不同的编码输出，我试了一下，打出来的只有表A第一行的标签，其他的都相同

If DataTables("表A").DataRows Is Nothing OrElse DataTables("表A").DataCols("号码") Is Nothing Then \'如果是空行或者Lot列为空
   
    Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
    img.Save(ProjectPath & "Images\\BarCode.gif")
Else
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.Code39
     For Each r As Row In Tables("表A").Rows
        Bar.Code = r("号码")
Next
    Bar.BarRatio = 0.3
    Bar.BarHeight = 18
    bar.SaveImage(ProjectPath & "Images\\BarCode.gif",600)
               \'
          
    \'生成Excel报表:
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\条形码标签.xls")
    Book.Build()
    Book.Save(ProjectPath & "Reports\\条形码标签.xls")
End If

为什么打印出来的标签还是一样的

参考：

http://www.foxtable.com/help/topics/2338.htm