边距设置

Padding属性和Spacing有点类似，Spacing用于设置和其他对象之间的间隔，而Padding用于设置对象内容和对象边界之间的距离，通常称之为边距。
Padding包括四个子属性：

All:     全部方向的边距
Top：    上边距
Bottom:  下边距
Left: ： 左边距
Right:   右边距

示例一

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Width = 40 '宽度为40毫米
rt.Height = 40 '宽度为40毫米
rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
rt.Style.Padding.Top = 25 '上边距25毫米
rt.Style.Padding.Left = 5 '左边距5毫米
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

执行结果：

实例二

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" '自动设置宽度
    rt.Style.Padding.All = 2 '所有方向的边距都设为2
    rt.Style.Spacing.All = 2
    rt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
    doc.Body.Children.Add(rt) '将文本对象加入到报表
Next
doc.Preview() '预览

执行效果：

你可以删除这一行，看看执行效果有什么不同：

rt.Style.Padding.All = 2 '所有方向的边距都设为2