Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]条码打印


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

主题：[求助]条码打印
帅哥哟，离线，有人找我吗？
江南小镇
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 15:36:00 [只看该作者]

老师，怎样把它赋值给单元格


Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Ean13
Bar.Code = "6935941202067
"
Bar.QuietZoneWidth = 2
Bar.SaveImage("文件名")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106806 积分：543231 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/21 15:37:00 [只看该作者]

把什么东西赋值给单元格？

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 16:45:00 [只看该作者]

老师好

图片点击可在新窗口打开查看此主题相关图片如下：image 2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106806 积分：543231 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/21 16:54:00 [只看该作者]

只能手工输入

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 16:56:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：image 3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106806 积分：543231 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/21 16:59:00 [只看该作者]

单元格只能存储文字，无法存储图片。如果要管理图片，参考：http://www.foxtable.com/webhelp/topics/1646.htm，保存图片到电脑，然后在图片列里添加图片

 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 17:37:00 [只看该作者]

老师，这个东西搞不好啊，条码必须符合Ean13的规则，否则不能使用Ean13这种类型。至于怎么生成符合Ean13的规则的条码，请自行网上搜索学习

 If e.Book.TempLate = "SalesInvoice" Then
    If e.region = "SaleOrderDetail" Then
        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("Lot") Then '如果是空行或者Lot列为空
            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.Ean13         
            Bar.Code = e.DataRow("Lot")
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)
        End If
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106806 积分：543231 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/21 20:47:00 [只看该作者]

自己业务的东西只能自行解决，不然就不要使用Ean13。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/7/16 4:50: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\BarCode.gif")
        Else '否则生成条形码图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.Ean13
            Bar.Code = e.DataRow("条码一")
            Bar.Code = e.DataRow("条码二")
            Bar.Code = e.DataRow("条码三")
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)
        End If
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106806 积分：543231 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/16 9:30: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\BarCode.gif")
        Else '否则生成条形码图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.Ean13
            Bar.Code = e.DataRow("条码一")
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)
        End If

        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("条码二") Then '如果是空行或者Lot列为空
            Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片
            img.Save(ProjectPath & "Images\BarCode2.gif")
        Else '否则生成条形码图片
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.Ean13
            Bar.Code = e.DataRow("条码二")
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\BarCode2.gif",300)
        End If

    End If
End If
[此贴子已经被作者于2022/7/16 9:30:32编辑过]
 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询