Foxtable(狐表)用户栏目专家坐堂 → 怎么样绑定相应的条形码


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

主题:怎么样绑定相应的条形码

帅哥哟,离线,有人找我吗?
jinzhengbe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
怎么样绑定相应的条形码  发帖心情 Post By:2012/6/5 4:13:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:??.png
图片点击可在新窗口打开查看
如图所示,想把相应的 条形码绑定到 相应的取货商品名 下面的位置。

 

现在的问题是,打印出来的条形码 没行的后三个都和每行的第一个条形码是一样的(好像只能识别每行的第一个条形码)

 

不知道是代码的问题,还是excel模版的问题?

 

代码如下:

If e.Book.TempLate = "Book1111" Then
    If e.region = "QuHuoJiLu" Then
        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("取货商品名") Then '如果是空行或者Lot列为空
    messagebox.show(2)
            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.Code128
            Bar.Code = e.DataRow("取货商品名")
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\BarCode.gif",1200)
        End If
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下:??1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-6-5 4:13:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/6/5 7:48:00 [只看该作者]

可用条形码字体打印.

 回到顶部