Foxtable(狐表)用户栏目专家坐堂 → 关于打印条形码


  共有2200人关注过本帖平板打印复制链接

主题:关于打印条形码

美女呀,离线,留言给我吧!
做自己
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3750 威望:0 精华:0 注册:2017/8/17 17:47:00
关于打印条形码  发帖心情 Post By: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
图片点击可在新窗口打开查看
打印的内容是这样的,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编辑过]

 回到顶部