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


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

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


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]条码打印  发帖心情 Post By：2022/6/20 19:40:00 [显示全部帖子]

老师，工具里设置的条码怎样打印在标签上或保存成图片，谢谢老师。

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


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 10:47:00 [显示全部帖子]

老师好，这个事件找不到，     BuildDetail
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 13:24:00 [显示全部帖子]

老师，我把Code39   改 Ean13 后报错。



Bar.Symbology = Barpro.Symbology.Code39

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


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 13:48:00 [显示全部帖子]

老师，把原来的Code39改成了我标出的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





.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.4.22.1
错误所在事件：Excel报表,BuildDetail
详细错误信息：
参数无效。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 14:50:00 [显示全部帖子]

老师，不会修改啊。

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


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：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("文件名")
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 16:45:00 [显示全部帖子]

老师好

图片点击可在新窗口打开查看此主题相关图片如下：image 2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2022/6/21 16:56:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：image 3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1711 积分：11421 威望：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
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询