主题：专业报表 / 数据绑定 / 多层分组

编码生成：

Dim doc  As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("订单").Rows
    Dim rt As New prt.RenderText
    rt.Text = r("数量")
    rt.Width = 19 '宽度为19毫米
    rt.Height = 8 '宽度为8毫米
    doc.body.Children.Add(rt)
Next
doc.Preview()

提示： 要指定对象的尺寸才行