以下是引用Bin在2013-6-5 10:56:00的发言：
Dim doc As New PrintDoc() '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
For i As Integer = 0 To 10
rt = New prt.RenderText() '创建文本对象
rt.Text = "Hello Foxtable " & i '设置文本对象的内容
rt.Width = "Auto" '自动设置宽度
If i = 2 Then
rt.Style.Padding.Top = 25 '上边距25毫米
rt.Style.Padding.Left = 15 '左边距5毫米
Else
rt.Style.Padding.All = 2 '所有方向的边距都设为2
rt.Style.Spacing.All = 2
End If
rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rt) '将文本对象加入到报表
Next
doc.Preview() '预览
我的是直接创建的网格 13*4的..就其中一个单元格 11行第二列的单元格,设置成靠右下角...
加好友 
发短信
Post By：2013/6/5 8:43:00 [显示全部帖子]
Post By：2013/6/5 10:52:00 [显示全部帖子]
