Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim CurRow As Row = Tables("会议记录").Current
'指定行数?列数?列宽?行高
rt.Rows.Count = 3 '设置总行数
rt.Cols.Count = 5 '设置总列数
rt.Height = 220 '设置表格的高度为80毫米
rt.Rows(0).Height = 10 '设置第7行(显示备注的行)的高度为40毫米,剩余高度被平均分排到其他行
rt.Rows(1).Height = 10 '设置第7行(显示备注的行)的高度为40毫米,剩余高度被平均分排到其他行
rt.Rows(2).Height = 20 '设置第7行(显示备注的行)的高度为40毫米,剩余高度被平均分排到其他行
rt.Rows(3).Height = 10 '设置第7行(显示备注的行)的高度为40毫米,剩余高度被平均分排到其他行
rt.Rows(4).Height = 200 '设置第7行(显示备注的行)的高度为40毫米,剩余高度被平均分排到其他行
rt.Rows(5).Height = 10 '设置第7行(显示备注的行)的高度为40毫米,剩余高度被平均分排到其他行
rt.Rows(6).Height = 10 '设置第7行(显示备注的行)的高度为40毫米,剩余高度被平均分排到其他行
'设置表格样式
rt.CellStyle.Spacing.All = 1 '单元格内容缩进1毫米
rt.Style.GridLines.All = New prt.Linedef '设置网格线
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
rt.Rows(6).Style.TextAlignVert = prt.AlignVertEnum.Top '唯独第7行是备注,内容靠上对齐
'下面很简单,指定每一个单元格的内容
rt.Cells(0,0).Text= "会议主题:" & CurRow("会议主题")
rt.Cells(0,4).Text = "签批:"
rt.Cells(0,3).Text= "主持:"& CurRow("主持人")
rt.Cells(1,0).Text= "会议地点:"& CurRow("会议地点")
rt.Cells(1,3).Text= "时间:"& CurRow("会议时间")
rt.Cells(2,0).Text= "参会人员:"& CurRow("实到人员")
rt.Cells(2,3).Text= "缺席:"& CurRow("缺席人员")
rt.Cells(3,0).Text= "会议内容:"& "【会议第一件事:参会负责人就上次的总结及及执行结果和本次工作计划做汇报】"
rt.Cells(3,0).Style.TextColor = Color.Red '将文字颜色设置好为红色
rt.Cells(3,0).Style.FontBold = True '将文字字体设置加粗
rt.Cells(4,0).Text= "会议内容:"& CurRow("会议内容") 这样内容多不可控如何根据内容多少自动变化行高
rt.Cells(5,0).Text= "抄送:"& CurRow("抄送")
rt.Cells(6,0).Text= "呈报:"& CurRow("呈报")
rt.Cells(6,3).Text= "存档:"& CurRow("存档")
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Doc.Preview() '预览报表
加好友 
发短信
Post By：2019/10/1 15:40:00 [只看该作者]
