单元格内距

在默认的情况下,单元格内容紧贴网格线:

我们知道Spacing属性可以用来设置对象之间的间隔,如果对象位于单元格中,则可用来设置对象和网格线的距离。

示例

Dim doc As New PrintDoc '创建一个报表
Dim
rt As New prt.RenderTable '创建一个表格对象
Dim
rx As prt.RenderText '定义一个文本对象
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.LineDef
'将网格线类型设为默认类型
'下面的代码向表格中填入值

For
r As integer = 0 to 5
    For c As integer = 0 to 5
        rx = New prt.RenderText
'创建一个新的文本对象
        rx.text = r &
"," & c '设置文本对象的内容
        rx.Style.Spacing.All =
1 '内容和网格线的距离为1
        rt.Cells(r, c).RenderObject = rx
'放置在单元格中
   
Next
Next

doc.Preview()
'预览报表

执行结果:


本页地址:http://www.foxtable.com/webhelp/topics/1205.htm