- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用代码设置打印标题行呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140670)
-- 发布时间：2019/9/11 9:38:00
-- 用代码设置打印标题行呢？
老师，如果要在已经生成的报表中设置打印标题行呢？以下代码可不可以设置。
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
-- 发布时间：2019/9/11 10:00:00
--
为什么不直接在模板里添加标题行？
-- 发布时间：2019/9/11 11:03:00
--
如果每页都打印标题而不打印尾行，需要在最后一页才打印尾行，用模板就达不到想要的结果。
-- 发布时间：2019/9/11 11:06:00
--
可以的。怎么设计的模板？发上来看看
-- 发布时间：2019/9/11 11:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:合医异地住院补偿银行帐户信息登记表.xlsx |
以上报表倒是可以实现，但是尾行多了，要嘛就不能在同一页显示，要嘛就前几页少设置几行，反正打印结果不理想。我需要的是最后一页不留空行，且行尾多行显示在一页。
[此贴子已经被作者于2019/9/11 11:34:46编辑过]
-- 发布时间：2019/9/11 11:42:00
--
不留空行把-10去掉即可。至于跨行这个没有办法，一页放不下的时候肯定要跨行的
-- 发布时间：2019/9/11 12:04:00
--
好的老师，看来只有这样了。要嘛就导出后灵活处理。