Dim Book AsNew 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) Ws.PrintOut Wb.Close App.Quit
加好友 
发短信
Post By：2020/1/10 20:14:00 [显示全部帖子]
