主题：老大,帮我看看这个专业报表代码应该怎么改?

Tables(e.Form.Name & "_Table1") .Select(0, 0, CurrentTable.Rows.Count - 1, CurrentTable.Cols.Count - 1)

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

'Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight

Dim ra As New prt.RenderArea

Dim rt As prt.RenderText

ra.Width = 60 '设置标签宽度

ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割

ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割

ra.Style.Spacing.Right = 2 '设置标签之间的所有和上下间隔为2毫米

ra.Style.Spacing.Bottom = 2

ra.Style.Padding.All = 1 ' 标签内容距离边框为1毫米

ra.Style.Borders.All = New prt.Linedef(0.3, Color.Black) '设置边框

ra.DataBinding.DataSource = BindTables("代券信息_Table1") '将容器绑定到员工表

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Bar.Code = "[Fields!代券代码.Value]"

Dim rm As New prt.RenderImage

rm.Image = Bar.GetImage(200)

doc.Body.Children.Add(rm)

Doc.Body.ChildRen.Add(ra) '将容器加入到报表中 

rt = New prt.RenderText

rt.Text = "代券代码:[Fields!代券代码.Value]"

ra.Children.Add(rt) '添加到容器中

rt = New prt.RenderText

rt.Text = "启始日期:[Format(Fields!启始日期.Value,""yyyy-MM-dd"")]"

ra.Children.Add(rt) 

rt = New prt.RenderText

rt.Text = "结束日期:[Format(Fields!结束日期.Value,""yyyy-MM-dd"")]"

ra.Children.Add(rt) 

rt = New prt.RenderText

rt.Text = "使用规则:[Fields!使用规则.Value]"

ra.Children.Add(rt) '

Doc.Preview()

  我想是一行  并排 

  条形码      框子                   条形码    框子

  这样的格式

此主题相关图片如下：报表_page1_page1.jpg

  我现在的这个 变成了.

此主题相关图片如下：hh_page1.jpg