Dim Book As New XLS.Book(ProjectPath & "Attachments\彩虹门设置审批表.doc")
Dim fl As String = ProjectPath & "Reports\彩虹门设置审批表.doc"
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
ShowAppWindow("彩虹门设置审批表",2)
Ws.PrintPreview
App.Quit
Dim Book As New XLS.Book(ProjectPath & "Attachments\单据.xls")
Dim fl As String = ProjectPath & "Reports\单据.xls"
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
ShowAppWindow("单据",2)
Ws.PrintPreview
App.Quit
第一个调用word表不好用，第二个调用excel表好用，为什么求大神解答
加好友 
发短信
Post By：2018/9/28 16:18:00 [显示全部帖子]
