主题：报表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.zip

用什么方法将报表做下图格式，每页20行，请指教，谢谢！

此主题相关图片如下：qq截图20151012110123.png

我做了，做不出，不足20行自动加空行，每页下面签字

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.zip

请帮我检查错在哪里？谢谢
 

此主题相关图片如下：qq截图20151012115108.png

谢谢！还想问个问题，"制单人:" & User.Name 在表格中水平居中？

Dim Book As New XLS.Book(ProjectPath & "报表模板\资助汇总表.xls")
Dim fl As String = ProjectPath & "Reports\资助汇总表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(4,5).Value = "制单人:" & User.Name '修改模板,加入制单人信息
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)
App.Visible = True
Ws.PrintOut
App.Quit

谢谢！