[求助]条形码如何放在标签下面 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

rt.cells(0,0).text ="Toplon Industrial Co., Ltd"

rt.cells(0,0).Style.Font = New Font("宋体", 14, FontStyle.Bold)

doc.Body.Children.Add(rt)

Dim rbc As New prt.RenderBarCode()

rbc.Height = 2

rbc.BarCodeType = BarCodeEnum.Code39

rbc.BarDirection = BarDirectionEnum.Normal

rbc.Text = r("样品编号")

doc.Body.Children.Add(rbc)

此主题相关图片如下：qq图片20160321145416.png

目的想让条形码放在标签内容的下面，代码如何修改呢？

本来就是放在下面的。肯定是你设置了排列方式 doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

贴出完整代码测试。

Dim doc As New PrintDoc '定义一个报表

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式

For Each r As Row In Tables("标签打印_table1").GetCheckedRows()

For i As Integer = 1 To r("份")

Dim rt As New prt.RenderTable() '定义一个表格对象

rt.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中

rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中

rt.style.GridLines.bottom = new prt.linedef

rt.style.gridlines.horz = new prt.linedef

rt.style.Padding.Top = 2

rt.Style.Spacing.Right = 18

rt.style.spacing.Top =4

rt.Width = 88 '表格宽度为80mm

rt.cellStyle.Spacing.All = 0.3 '和其他对象之间的间隔为2mm

rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.

rt.Cols(0).Width = 35

rt.Cells(0,0).SpanCols =2

rt.cells(0,0).text ="Toplon Industrial Co., Ltd"

rt.cells(0,0).Style.Font = New Font("宋体", 14, FontStyle.Bold)

rt.cells(2,0).Text = "DESIGN NO."

rt.cells(2,1).text = r("样品编号")

rt.cells(2,0).Style.Font = New Font("宋体", 10)

rt.cells(2,1).Style.Font = New Font("宋体", 10)

rt.Cells(4,0).Text = "COMPOSITION"

rt.cells(4,1).text = r("成份")

rt.cells(4,0).Style.Font = New Font("宋体", 10)

rt.cells(4,1).Style.Font = New Font("宋体", 10)

rt.Cells(6,0).Text= "WIDTH"

doc.Body.Children.Add(rt)

Dim rbc As New prt.RenderBarCode()

rbc.Height = 5

rbc.style.Padding.Top = 0.5

rbc.BarCodeType = BarCodeEnum.Code39

rbc.BarDirection = BarDirectionEnum.Normal

rbc.Text = r("样品编号")

doc.Body.Children.Add(rbc)

目标功能：实现标签打印，一排两个，每张纸打印12个

把条码作为表格的一部分，比如代码

Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For i As Integer = 1 To 2
    Dim rt As New prt.RenderTable() '定义一个表格对象
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
    '设置各位置的网格线
    rt.Style.GridLines.All = New Prt.LineDef(0.5, Color.Black)
    rt.width = 50
    '下面的代码向表格中填入值
    rt.cells(0,0).text = 1
    rt.cells(1,0).text = 2
    rt.cells(2,0).text = 3
    Dim rbc As New prt.RenderBarCode()
    rbc.Height = 5
    rbc.style.Padding.Top = 0.5
    rbc.BarCodeType = BarCodeEnum.Code39
    rbc.BarDirection = BarDirectionEnum.Normal
    rbc.Text = "123"
    rt.cells(3,0).RenderObject = rbc
Next
doc.Preview() '预览报表

主题：[求助]条形码如何放在标签下面