这样测试没问题。你以后有问题,请贴出完整的、可以执行的代码测试。
Dim doc As new PrintDoc
Dim ra As new prt.RenderArea
'ra = rt.Cells(15,0).Area '引用单元格的容器 我把这个注释掉了,因为用的话,就一个方框套表格,我不想要外面的方框
Dim rt1 As New prt.RenderTable() '定义一个表格对象
Dim rx1 As New prt.RenderText '定义一个文本对象
'Dim CurRow1 As Row = Tables("family").Current
'加入标题
rx1.text = "家庭人员信息表"
rx1.Style.FontBold = True '字体加粗
rx1.Style.FontSize = 16 '大体大小为16磅
rx1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt1.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt1.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
rx1.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
'指定行数?列数?列宽?行高
rt1.Rows.Count = 7 '设置总行数
rt1.Cols.Count = 6 '设置总列数
rt1.Height = 80 '设置表格的高度为80毫米
rt1.Rows(6).Height = 20 '设置第7行(显示备注的行)的高度为40毫米,剩余高度被平均分排到其他行
rt1.Cols(0).Width = 20 '设置前四列的宽度,
rt1.Cols(1).Width = 20 '设置前四列的宽度,
rt1.Cols(2).Width = 18 '设置前四列的宽度,
rt1.Cols(3).Width = 22 '设置前四列的宽度,
rt1.Cols(4).Width = 25
'设置表格样式
rt1.CellStyle.Spacing.All = 1 '单元格内容缩进1毫米
rt1.Style.GridLines.All = New prt.Linedef '设置网格线
rt1.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
rt1.Rows(6).Style.TextAlignVert = prt.AlignVertEnum.Top '唯独第7行是备注,内容靠上对齐
'下面很简单,指定每一个单元格的内容
rt1.Cells(0,0).Text= "关系"
rt1.Cells(0,1).Text= "姓名"
rt1.Cells(0,2).Text= "年龄"
rt1.Cells(0,3).Text= "政治面貌"
rt1.Cells(0,4).Text= "联系方式"
rt1.Cells(0,5).Text= "工作单位"
rt1.Cells(1,5).Text= "工作单位"
ra.Children.Add(rt1)
ra.Children.Add(rx1)
'doc.Body.Children.Add(rt) '将表格对象加入到报表中
doc.Body.Children.Add(ra)
Doc.Preview() '预览报表