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编辑过]