Dim doc As New PrintDoc
Dim rt As prt.RenderText
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each dr As Row In Tables("Main_Table2").Rows
    Dim s,s1 As String
    s =dr("产品")
    s1=dr("金额")
    rt = New prt.RenderText()
    rt.Text = s & "=" & s1
    rt.Width = 17
    rt.Height = 7
    rt.Style.Spacing.All = 0
    rt.Style.Borders.All = New prt.Linedef(0.1, Color.black)
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center
    doc.Body.Children.Add(rt)
Next
doc.Preview()

谢谢