设定尺寸

如果明确指定了表格的高度和宽度,那么列宽等于表宽除以总列数,行高等于表高除以总行数。

示例

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