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

Tables("初中报名_table1").sort ="考试名称,单位名称,考号"

Dim doc As New PrintDoc

Dim rt As Prt.RenderTable

Dim rx As prt.RenderText

Dim tbl As Table = Tables("初中报名_table1")

Dim ColNames As String() = New String(){"考号", "姓名"}

Dim Rows As List(Of DataRow)

Dim Regions As List(Of String()) = tbl.DataTable.GetValues("考试名称|单位名称|考试室","","考试室") ''''改后句子

Dim rm As prt.RenderEmpty

Doc.PageSetting.LeftMargin = 10 '设置左边距

Doc.PageSetting.RightMargin = 10 '设置右边距

Doc.PageSetting.TopMargin = 10 '设置上边距

Doc.PageSetting.BottomMargin = 10 '设置下边距

For Each region As String() In Regions

rm = new prt.RenderEmpty '定义一个新的空对象

rm.BreakBefore = prt.BreakEnum.Page '打印前换页

doc.Body.Children.Add(rm)

Dim rx1 As New prt.RenderTable

rx1.Cells(0,1).Text = region(2)

doc.Body.Children.Add(rx1)

rt = New prt.RenderTable

Doc.PageHeader = rx

rt.Cols(0).Width = 70

rt.Cols(1).width = 48

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

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

rt.Style.Gridlines.All = New prt.Linedef(Color.black) '灰色网格线

rt.CellStyle.Spacing.All = 2.8 '内距设为0.5毫米

rt.Style.GridLines.All = New prt.LineDef(0.3,Color.black)

rt.Style.Spacing.Bottom = 2

rt.CellStyle.Spacing.All = 1

rt.Style.Font = New Font("宋体", 25, FontStyle.Bold)

Rows = tbl.DataTable.Select("[单位名称] = '" & region(1) & "'And [考试室] ='" & region(2) & "'and [考试名称] ='" & region(0) & "'","考试室,考号")

For c As Integer = 0 To ColNames.Length - 1 '逐列设置和填入内

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

rt.Cells(r+1,c).Text = Rows(r)(ColNames(c))

rt.Rows(r+1).Height = 18

doc.Body.Children.Add(rt)

doc.Columns.Add()

Doc.Columns(0).Spacing = 20

doc.preview()

此主题相关图片如下：qq图片20171121212856.png

老师，我想在每页的页的页眉或每栏的上方打印出分组的 region(2)，结果是原来两栏顶部没对齐，如何实现对想法并对齐每页的两栏？

主题：页眉打印