专家坐堂-求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'1.页面设置

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

doc.PageSetting.PaperKind = 9 \'纸张类型改为A4

Doc.PageSetting.LeftMargin = 25 \'设置左边距

Doc.PageSetting.RightMargin = 15 \'设置右边距

Doc.PageSetting.TopMargin = 20 \'设置上边距

Doc.PageSetting.BottomMargin = 15 \'设置下边距

Dim tbl As Table = Tables("案卷目录")\'指定表和打印范围从当前行到选定行

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

Dim rw As Row = tbl.Rows(i)

tbl.Position = i

\'2.表头设计

Dim rx As New prt.RenderText \'定义一个文本对象用于加表头

Dim ra As New prt.RenderArea \'定义一个容器

ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never \'禁止容器因为分页而被垂直分割

rx.text = "卷内目录" \'加入标题

rx.Style.Font = New Font("仿宋", 22, FontStyle.Bold) \'设置字体为仿宋22号(二号)加粗

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列

rx.Style.Padding.Top = 1 \'上边距1毫米

rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离1毫米

ra.Children.Add(rx) \'加入到容器中

\'3.表格设计

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

rt.Style.GridLines.All = New Prt.LineDef(0.5, Color.Black) \'定义外外边框线为0.5

rt.Style.GridLines.Horz = new Prt.LineDef(0.25,Color. Black) \'定义内水平网格线为0.25

rt.Style.GridLines.Vert = new Prt.LineDef(0.25,Color. Black) \'定义内竖直网格线为0.25

\'设置表格行数?列数?行高?列宽及网格线及字体

rt.Width = 170 \'表宽为170毫米

rt.Height = 7 \'表高为7毫米

rt.Cols.Count = 7 \'设置列数为4

rt.Rows.Count = 1 \'设置行数为1

\'设置字体及对齐方式

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'内容水平居中

rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'内容垂直居中

rt.Style.Font = New Font("仿宋", 12) \'12号仿宋

rt.Cols(0).Width = 8 \'设置前列的宽度

rt.Cols(1).Width = 20

rt.Cols(2).Width = 22

rt.Cols(4).Width = 22

rt.Cols(5).Width = 12

rt.Cols(6).Width = 12

\'4副表头页眉?页脚设置

\'副表头设计

rt.Rows(0).Style.GridLines.All = New prt.LineDef("0mm", Color.white) \'去掉第一行的网格线

rt.Cells(0,0).SpanCols = 7 \'合并第一行全部单元格,用于显示副标题

rt.Cells(0,0).text = " 档号: GL." & rw("档号") \'通过左边空格数量来调整副标题位置

rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Left \'副标题内容居左

rt.Rows(0).Height = 7 \'设置第一行的高度,拉开和表格主体的距离.

ra.Children.Add(rt) \'将表格对象加入到容器中

\'卷内目录

rt = New prt.RenderTable \'定义一个新的表格对象

rt.Style.GridLines.All = New Prt.LineDef(0.5, Color.Black) \'定义外边框线为0.5

rt.Style.GridLines.Horz = new Prt.LineDef(0.25,Color. Black) \'定义内水平网格线为0.25

rt.Style.GridLines.Vert = new Prt.LineDef(0.25,Color. Black) \'定义内竖直网格线为0.0.25

rt.Style.Font = New Font("仿宋", 12) \'设置字体为仿宋12号

rt.Style.FontBold = False \'字体不加粗

rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'内容垂直居中

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'内容水平居中

rt.Cols(3).Style.TextAlignHorz = prt.AlignHorzEnum.Left \'第四列左对齐

rt.Cells(0,3).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt.Cols(3).CellStyle.Spacing.Left = 1 \'文件题名列单元格左内边距设为1毫米

rt.Cols(3).Style.LineSpacing = 125 \'简要描述1.2倍行距

rt.Width = 170 \'表宽为170毫米

rt.Height = 245 \'表高为110毫米

rt.Cols.Count = 7 \'设置列数为4列

rt.Rows.Count = 16 \'设置行数为16行

rt.Cols(0).Width = 8 \'设置前列的宽度

rt.Cols(1).Width = 20

rt.Cols(2).Width = 22

rt.Cols(4).Width = 22

rt.Cols(5).Width = 12

rt.Cols(6).Width = 12

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

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

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

rt.Cells(0,3).Text = "文件题名"

rt.Cells(0,4).Text = "日期"

rt.Cells(0,5).Text = "页次"

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

With Tables("案卷目录.卷内目录")

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)("备注")

End With

ra.Children.Add(rt) \'加入到容器中

Doc.Body.ChildRen.Add(ra) \'将容器加入到报表中

Doc.Preview() \'预览报表