Dim Book As New XLS.Book(ProjectPath & "Attachments\登记单.xls") '打开模板 Dim fl As String = ProjectPath & "Reports\登记单.xls" Dim Sheet As XLS.Sheet = Book.Sheets(0) Sheet(1,0).Value = "<窗口1_Table1>" '细节区定义一 'Sheet(30,0).Value = "<窗口1_Table1,1>" '细节区定义二 Book.Build() '生成报表 Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Verb = "Print" '指定动作 Proc.Start()
加好友 
发短信
Post By：2013/5/6 10:01:00 [显示全部帖子]
