Dim doc As New PrintDoc \'定义一个报表

Dim Rows As List(Of DataRow)

Dim tbl As Table = Tables("卷内目录")

Dim rt As New prt.RenderTable() \'定义一个表格对象

Dim rs As New prt.RenderText() \'定义一个文本对象

rs.Text = "卷内目录表"  \'设置文本对象的内容

rs.Style.Font = New Font("宋体", 24 , FontStyle.Bold) \'设置文本对象的字体

rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'文本内容水平居中

doc.Body.Children.Add(rs) \'将文本对象加入到表格中

\'doc.Body.Children.Add(rt) \'将表格对象加入到报表中

rt.Style.GridLines.All = New prt.Linedef \'设置网格线

rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All

rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型

\'rt.Width = "Auto"

rt.Cols(0).Width = 10 \'设置列宽

rt.Cols(1).Width = 20 \'设置列宽

rt.Cols(2).Width = 20 \'设置列宽

rt.Cols(3).Width = 20 \'设置列宽

rt.Cols(4).Width = 10 \'设置列宽

rt.Cols(5).Width = 50 \'设置列宽

rt.Cols(6).Width = 10 \'设置列宽

rt.Cols(7).Width = 10 \'设置列宽

rt.Cols(8).Width = 20 \'设置列宽

rt.Rows.Count = 21 \'设置总行数

rt.Cols.Count = 9 \'设置总列数

rt.Style.Spacing.Top = 4 \'表格和前面对象的垂直间隔为4毫米

rt.Style.Spacing.Bottom = 10 \'表和和后续对象的垂直间隔为10毫米

rt.Height = 235 \'设置表格的高度为120毫米

rt.Cells(0,3).SpanCols = 2 \'第5行第2个单元格向右合并3列

rt.Cells(0,0).SpanRows = 2 \'第1行第5个单元格向下合并6行

rt.Cells(0,1).SpanRows = 2 \'第1行第5个单元格向下合并6行

rt.Cells(0,4).SpanRows = 2 \'第1行第5个单元格向下合并6行

rt.Cells(0,5).SpanRows = 2 \'第1行第5个单元格向下合并6行

rt.Cells(0,6).SpanRows = 2 \'第1行第5个单元格向下合并6行

rt.Cells(0,7).SpanRows = 2 \'第1行第5个单元格向下合并6行

rt.Cells(0,2).SpanRows = 2 \'第1行第5个单元格向下合并6行

rt.Cells(0,8).SpanRows = 2 \'第1行第5个单元格向下合并6行

For i As Integer = tbl.TopRow To tbl.BottomRow

    

    rt.Cells(0,0).Text= "序号"

    rt.Cells(0,1).Text = "来源"

    rt.Cells(0,2).Text = "责任人"

    rt.Cells(0,3).Text= "文件编号"

    rt.Cells(1,3).Text= "字号"

    rt.Cells(1,4).Text= "文号"

    rt.Cells(0,4).Text = "标题"

    rt.Cells(0,5).Text = "标题"

    rt.Cells(0,6).Text = "起始页"

    rt.Cells(0,7).Text = "结束页"

    rt.Cells(0,8).Text = "备注"

    rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All \'前两行作为表头

    \'rt.RowGroups(0,2).Style.BackColor = Color.LightGray \'前两行的颜色设为灰色

    rt.RowGroups(0,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'前两行的文本水平居中

    rt.RowGroups(0,2).Style.TextAlignVert = prt.AlignVertEnum.Center \'前两行的文本垂直居中

    

    Rows = Tables("卷内目录").Rows(i).DataRow.GetChildRows("案卷编号")

    For r As Integer = 0 To Rows.Count - 1

        rt.Cells(r+1,0).Text = rows(r)("序号")

        rt.Cells(r+1,1).Text = rows(r)("来源")

        rt.Cells(r+1,2).Text = rows(r)("责任人")

        rt.Cells(r+1,3).Text = rows(r)("字号")

        rt.Cells(r+1,4).Text = rows(r)("文号")

        rt.Cells(r+1,5).Text = rows(r)("标题")

        rt.Cells(r+1,6).Text = rows(r)("起始页")

        rt.Cells(r+1,7).Text = rows(r)("结束页")

        rt.Cells(r+1,8).Text = rows(r)("备注")

        

    Next

Next

doc.Body.Children.Add(rt)

Dim rx As New prt.RenderTable

\'rx.Cells(0,0).Text = Date.Today

\'rx.Cells(0,1).Text = "抗震救灾专题"

rx.Cells(0,2).Text = "第[PageNo]页,共[PageCount]页"

rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left

rx.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right

\'rx.Style.Borders.Bottom = New prt.LineDef \'设置底边框

rx.CellStyle.Spacing.Bottom = 0.5 \'底端内容缩进0.5毫米

rx.Style.FontSize = 8 \'字体大小为8磅

Doc.PageFooter=rx \'作为页眉使用

Doc.Preview() \'预览报表