主题：竖向排列条码打印问题

参考代码

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
bar.Code = "123456"
img = new prt.RenderImage
img.Image = bar.GetImage
Dim ra As new prt.RenderArea
ra.children.add(img)
Dim rt As new prt.RenderText
rt.text = bar.code
rt.Style.BackColor = Color.white
rt.width = 12
rt.x = 5
rt.y = 2
ra.Children.Add(rt)
Doc.Body.Children.Add(ra)
Doc.Preview()

或者

Dim doc As New PrintDoc
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
bar.Code = "123456"
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1.5)
Dim ra As new prt.RenderArea
ra.children.add(rg)
Dim rt As new prt.RenderText
rt.text = bar.code
rt.Style.BackColor = Color.white
rt.width = 12
rt.x = 15
rt.y = 3
ra.Children.Add(rt)
Doc.Body.Children.Add(ra)
Doc.Preview()

参考代码

Dim doc As New PrintDoc
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Dim tb As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(tb) '将表格对象加入到报表中
Dim i As Integer = 0
For Each r As Row In Tables("表A").rows
    bar.Code = r("第一列")
    bar.Text = "SN " & bar.code
    Bar.AddCheckSum = False
    Bar.DisplayChecksum = False
    Bar.DisplayStartStopChar = False
    Bar.DisplayCode = False   
    Bar.TextAlignment = Barpro.Alignment.BelowCenter
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1.5)
    Dim ra As prt.RenderArea = tb.Cells(i \ 2, i Mod 2).area
    ra.children.add(rg)
    Dim rt As new prt.RenderText
    rt.text = bar.code
    rt.Style.BackColor = Color.white
    rt.width = 12
    rt.x = 15
    rt.y = 3
    ra.Children.Add(rt)
    i += 1
Next
Doc.Preview()