单元格内距
在默认的情况下,单元格内容紧贴网格线:
我们知道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