老师,我在ZTBGDY.xls工作簿里做了多个工作表模板,取不同的数据,我在这个代码之前加了各个数据表加载的条件,实现了将需要的数据导出到这个工作簿的不同工作表中,Dim Book As New XLS.Book(ProjectPath & "Attachments\ZTBGDY.xls")
Dim fl As String = ProjectPath & "Reports\BGDY.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("首页")
Ws.Select
App.Visible = True
ShowAppWindow("BGDY",2)
请问老师,我想在这基础 上实现打印这个工作簿的所有表,请问怎么实现?
Dim Book As New XLS.Book(ProjectPath & "Attachments\ZTBGDY.xls")
Dim fl As String = ProjectPath & "Reports\BGDY.xls"
Book.Build()
Book.Save(fl)
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Verb = "Print" '指定动作
Proc.Start()
以上代码只打印这个工作簿的一个表,我想全部都一下打印出来。请老师指导。