以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel中打印二维码标签问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135017)
--  作者：wangj6666
--  发布时间：2019/5/15 10:39:00
--  excel中打印二维码标签问题
各位专家好！
      在excel中打印二维码标签，如果每页只打印1列标签，自动生成并打印的二维码我已会做了。可我现在想每页打印3列标签，就处理不好了。
      我已在excel报表中设置如下：
[设备机台编号及名称] [&&二维码.wmf,2,2,120,100] [设备机台编号及名称+1] [&&二维码.wmf,2,2,120,100] [设备机台编号及名称+2] [&&二维码.wmf,2,2,120,100]
[规格] [规格+1] [规格+2]
      这样设置后，设备机台编号及名称以及规格都是正确的，就是生成的二维码同一行三列的都是相同的。也就是目前只有每一行的第一个是正确的，后面两个都不正确。请问还要如何设置才能完成？谢谢！
--  作者：有点甜
--  发布时间：2019/5/15 10:43:00
--  

改成不同的名称

 

[&&二维码1.wmf,2,2,120,100]

[&&二维码2.wmf,2,2,120,100]

[&&二维码3.wmf,2,2,120,100]

 

在报表事件那里，也生成三个wmf的图片，即可
--  作者：wangj6666
--  发布时间：2019/5/15 10:52:00
--  
我的报表事件代码如下：
If e.Book.TempLate = "设备机台编号及名称二维码" Then
    If e.region = "设备机台" Then
        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("设备机台编号及名称") Then \'如果是空行或者Lot列为空
            Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
            img.Save(ProjectPath & "Images\\二维码.wmf")
        Else \'否则生成条形码图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.QRCode
            Bar.Code = e.DataRow("设备机台编号及名称")
            Bar.QuietZoneWidth = 2
            bar.SaveImage(ProjectPath & "Images\\二维码.wmf",300)
        End If
    End If
End If

如何修改才能生成三个wmf的图片？谢谢！
--  作者：有点甜
--  发布时间：2019/5/15 11:03:00
--  
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
--  作者：wangj6666
--  发布时间：2019/5/15 11:40:00
--  
搞定！谢谢！