设定尺寸
如果明确指定了表格的高度和宽度,那么列宽等于表宽除以总列数,行高等于表高除以总行数。
示例
Dim
doc
As New PrintDoc
'创建一个报表
Dim rt As
New prt.RenderTable '创建一个表格对象
Dim rx As
prt.RenderText '定义一个文本对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Width = 120
'设置表格的宽度为120毫米
rt.Height = 100
'设置表格的高度为100毫米
rt.Style.GridLines.All = New prt.LineDef
'设置网格线类型
'下面的代码向表格中填入值
For r As
integer =
0
to
5
If r =
1 Then
Continue
for
End
If
For c
As
integer =
0
to
5
rx = New prt.RenderText
'创建一个新的文本对象
rx.text = r &
"," & c
'设置文本对象的内容
rx.Style.TextAlignHorz =
prt.AlignHorzEnum.Center '水平居中
rx.Style.TextAlignVert =
prt.AlignVertEnum.Center '垂直居中
rt.Cells(r, c).RenderObject = rx
'放置在单元格中
Next
Next
doc.Preview() '预览报表
下图是执行结果,可以看到第二行虽然没有设置内容,但是和其它行的高度是一样的:
本页地址:http://www.foxtable.com/webhelp/topics/1202.htm