- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于打印条形码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141736)
-- 发布时间：2019/10/10 7:20:00
-- 关于打印条形码
Dim doc As New PrintDoc
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Dim Multi As String
Dim Values() As String
For Each r As Row In Tables("裁剪信息_Table2").Rows
Multi = r("条形码")
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
bar.Code = Values(Index)
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
Next
Next
Doc.Preview()
我代码是这么写的，但是条形码打印，提示这样的信息，怎么回事
此主题相关图片如下：1.png
此主题相关图片如下：1.png打印的内容是这样的,0SC201910-002XFS42-000,0SC201910-002XFS42-001,0SC201910-002XFS42-002,0SC201910-002XFS46-000,0SC201910-002XFS46-001,0SC201910-002XFS46-002,0SC201910-002XFS46-003,0SC201910-002XFS50-000,0SC201910-002XFS50-001,0SC201910-002XFS50-002,0SC201910-002XFS50-003
[此贴子已经被作者于2019/10/10 7:20:35编辑过]
-- 发布时间：2019/10/10 10:10:00
--
For Each r As Row In Tables("裁剪信息_Table2").Rows
Multi = r("条形码")
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
if Values(Index) > "" then
bar.Code = Values(Index)
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
end if
Next
Next
-- 发布时间：2019/10/10 13:19:00
--
打印出来的条形码后面多一位然后加的* ，怎么回事啊，在上条我的回复的最后有应该的条形码内容，跟我要打印的条形码不一样
此主题相关图片如下：1.png
[此贴子已经被作者于2019/10/10 13:19:32编辑过]
-- 发布时间：2019/10/10 13:56:00
--
这个是你自己选的编码，改为不同的编码试试：http://www.foxtable.com/webhelp/topics/2080.htm
Bar.Symbology = Barpro.Symbology.Code39
-- 发布时间：2019/10/10 16:53:00
--
我选择哪个可以不打印其他东西，只打印我要打印的
-- 发布时间：2019/10/10 17:52:00
--
常用的是Code39