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


  共有2255人关注过本帖树形打印复制链接

主题：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]
      这样设置后，设备机台编号及名称以及规格都是正确的，就是生成的二维码同一行三列的都是相同的。也就是目前只有每一行的第一个是正确的，后面两个都不正确。请问还要如何设置才能完成？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
    End If
End If

如何修改才能生成三个wmf的图片？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
wangj6666
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：238 积分：1943 威望：0 精华：0 注册：2016/1/11 8:40:00 		  发帖心情 Post By：2019/5/15 11:40:00 [显示全部帖子]

搞定！谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询