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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel中打印二维码标签问题

共有2241人关注过本帖树形打印复制链接主题：excel中打印二维码标签问题

wangj6666

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00

excel中打印二维码标签问题 发帖心情

Post By：2019/5/15 10:39:00 [只看该作者]

各位专家好！

在excel中打印二维码标签，如果每页只打印1列标签，自动生成并打印的二维码我已会做了。可我现在想每页打印3列标签，就处理不好了。

我已在excel报表中设置如下：

[设备机台编号及名称]	[&&二维码.wmf,2,2,120,100]		[设备机台编号及名称+1]	[&&二维码.wmf,2,2,120,100]		[设备机台编号及名称+2]	[&&二维码.wmf,2,2,120,100]
[规格]			[规格+1]			[规格+2]

这样设置后，设备机台编号及名称以及规格都是正确的，就是生成的二维码同一行三列的都是相同的。也就是目前只有每一行的第一个是正确的，后面两个都不正确。请问还要如何设置才能完成？谢谢！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00

Post By：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

如何修改才能生成三个wmf的图片？谢谢！

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00

Post By：2019/5/15 11:40:00 [只看该作者]

搞定！谢谢！

下一主题 >> << 上一主题

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