老师，如果要在已经生成的报表中设置打印标题行呢？以下代码可不可以设置。
Select Case e.StripItem.Name
'门诊慢性病补偿审核汇总表
Case "print1"
e.Form.Strips("主菜单").Items("printgxy").BaseControl.HideDropDown '退出主菜单下的项目菜单"printgxy"
Dim Book As New XLS.Book(ProjectPath & "Attachments\门诊慢性病补偿审核汇总表.xlsx")
Dim fl As String = ProjectPath & "Reports\门诊慢性病补偿审核汇总表.xlsx"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
App.Quit
End Select
加好友 
发短信
Post By：2019/9/11 9:38:00 [显示全部帖子]
