以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]条码打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178156)

--  作者:江南小镇
--  发布时间:2022/6/20 19:40:00
--  [求助]条码打印
老师,工具里设置的条码怎样打印在标签上或保存成图片,谢谢老师。
--  作者:有点蓝
--  发布时间:2022/6/20 20:22:00
--  
不是有打印和保存按钮吗:http://www.foxtable.com/webhelp/topics/2076.htm


--  作者:江南小镇
--  发布时间:2022/6/21 10:47:00
--  

老师好,这个事件找不到,     BuildDetail


--  作者:有点蓝
--  发布时间:2022/6/21 10:57:00
--  
报表事件:http://www.foxtable.com/webhelp/topics/1953.htm
--  作者:江南小镇
--  发布时间:2022/6/21 13:24:00
--  
老师,我把Code39   改 Ean13 后报错。



Bar
.Symbology = Barpro.Symbology.Code39

--  作者:有点蓝
--  发布时间:2022/6/21 13:34:00
--  
报什么错?http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
--  作者:江南小镇
--  发布时间: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
详细错误信息:
参数无效。


--  作者:有点蓝
--  发布时间:2022/6/21 14:19:00
--  
 Bar.Code = e.DataRow("Lot")

单元格的内容不符合Ean13的条码规则:https://baijiahao.baidu.com/s?id=1717117193630301255&wfr=spider&for=pc

--  作者:江南小镇
--  发布时间:2022/6/21 14:50:00
--  
老师,不会修改啊。
--  作者:有点蓝
--  发布时间:2022/6/21 15:12:00
--  
条码必须符合Ean13的规则,否则不能使用Ean13这种类型。至于怎么生成符合Ean13的规则的条码,请自行网上搜索学习