以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么样绑定相应的条形码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20318)

--  作者:jinzhengbe
--  发布时间: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
--  发布时间:2012/6/5 7:48:00
--  
可用条形码字体打印.