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()
谢谢
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:11.png