以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 什么同时打两个表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189361) |
-- 作者:qazlinle6 -- 发布时间:2023/11/27 22:09:00 -- 什么同时打两个表 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) Ws.PrintOut App.Quit Dim Book As New XLS.Book(ProjectPath & "Attachments\\工费票据打印.xls") Dim f 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 App.Quit 什么同时打两个表
|
-- 作者:有点蓝 -- 发布时间:2023/11/27 22:14:00 -- Dim Book As New XLS.Book(ProjectPath & "Attachments\\金价piao据打印.xls") Dim fl As String = ProjectPath & "Reports\\金价piao据打印.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 App.Quit Book = New XLS.Book(ProjectPath & "Attachments\\工费piao据打印.xls") f = ProjectPath & "Reports\\工费piao据打印.xls" Book.Build() Book.Save(fl) App = New MSExcel.Application Wb = App.WorkBooks.Open(fl) Ws = Wb.WorkSheets(1) Ws.PrintOut App.Quit
|