可以不用报表事件,然后直接在下面的代码中补充实现不呢?麻烦老师指导下谢谢!
Dim time As String =Format(Date.now,"yyyyMMddHHmmss")
Dim Book As New XLS.Book(ProjectPath & "Attachments\巡察整改清单.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\巡察整改清单" & e.Values("创建人") & e.Values("guid") & time & ".xls"
book.AddDataTable("反馈问题清单","主数据源","Sele ct * from {反馈问题清单} where 巡察组='" & e.Values("巡察组") & "' and 被巡单位='" & e.Values("被巡单位") & "' and 巡察届别='" & e.Values("巡察届别") & "' and 巡察轮次='" & e.Values("巡察轮次") & "'")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
.PaperKind = 9 '设为A4纸
.LandScape = True '横向打印
.AutoScale = True '自动缩放
End With
Book.Build() '生成报表
Book.Save(fl)