窗口生成报表的代码如下，采用用的报表模板如图一，想用1~4行做为表头，每页都能生成表头，如图二。红色代码不起作用。请问老师怎么修改？如果还想用横板中的14~15行作为每页的页脚，又该如何写代码？

增加红色部分代码，想将1~4行作为每一页的表头，但显示错误，请问老师，该怎么改？

Dim Book As New XLS.Book(ProjectPath & "Attachments\\变更统计表1.xlsx")

Dim fl As String = ProjectPath & "Reports\\变更统计表1.xlsx"

Dim filter As String = IIF(vars("变更信息表filter") > ""," where " & vars("变更信息表filter") & " and 承包人申报=1"," where 承包人申报=1")

book.AddDataTable("变更统计表1","xlgl","Selec t *, (selec t sum(Round((Case When 变更后数量 Is null Then 0 Else 变更后数量 End - Case When 变更前数量 Is null Then 0 Else 变更前数量 End) * Case When 单价 Is null Then 0 Else 单价 End,0))  from {申请费用表} b where a.项目名称=b.项目名称 and a.变更编号=b. 变更编号) As [估计变更金额] fro m {变更申请单} a " & filter)

Book.Build()

Book.Save(fl)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

With Sheet.PrintSetting

    .PaperKind = 9 \'设为A4纸

    .LandScape = True \'横向打印

    .MarginLeft = 5 \'左右边距设为5毫米

    .MarginRight = 5

    .MarginTop = 15 \'上下边距设为15毫米

    .MarginBottom = 10

End With

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("Reports\\变更统计表1.xlsx")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(0)

With Ws.PageSetup

    \'设置打印区域

    .PrintTitleRows = Ws.Rows(0,3).Address \'打印行标题(在每一页的顶部重复出现)

End With

App.Visible = True

Ws.PrintPreview

App.Quit

 

Dim Proc As New Process

Proc.File = fl

Proc.Start()

按老师的意见修改，显示以下错误

以管理员身份运行，出现以下错误