窗口生成报表的代码如下,采用用的报表模板如图一,想用1~4行做为表头,每页都能生成表头,如图二。红色代码不起作用。请问老师怎么修改?如果还想用横板中的14~15行作为每页的页脚,又该如何写代码?
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)) fro m {申请费用表} 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 doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
rt.RowGroups(0,3).Header = prt.TableHeaderEnum.All '将1~4行作为表头.
Dim Proc As New Process
Proc.File = fl
Proc.Start()
图一:
此主题相关图片如下:1111.png
图二:
此主题相关图片如下:2222.png