excel中打印二维码标签问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim t As Table = Tables("表A")
Dim i As Integer = t.FindRow(e.DataRow)
Dim r As Row = t.Rows(i)
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = r("设备机台编号及名称")
Bar.QuietZoneWidth = 2
bar.SaveImage(ProjectPath & "Images\二维码1.wmf",300)
If i+1 < t.Rows.count Then
    r= t.Rows(i+1)
    bar = New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = r("设备机台编号及名称")
    Bar.QuietZoneWidth = 2
    bar.SaveImage(ProjectPath & "Images\二维码2.wmf",300)
End If
If i+2 < t.Rows.count Then
    r= t.Rows(i+2)
    bar = New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = r("设备机台编号及名称")
    Bar.QuietZoneWidth = 2
    bar.SaveImage(ProjectPath & "Images\二维码2.wmf",300)
End If

主题：excel中打印二维码标签问题