以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  报表打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51979)
--  作者：gslxgl
--  发布时间：2014/6/6 17:37:00
--  报表打印
Dim Book As New XLS.Book(ProjectPath & "Attachments\\分户发放表.xls")
Dim fl As String = ProjectPath & "Reports\\分户发放表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

这个代码是打开Attachments\\分户发放表.xls的工作表，如何直接打印Attachments\\分户发放表.xls
--  作者：有点甜
--  发布时间：2014/6/6 17:41: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
wb = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut
wb.close
App.Quit
--  作者：gslxgl
--  发布时间：2014/6/7 9:35:00
--  

怎么每次出现另存为窗口，还有如果要连续打印多张表，加什么代码
--  作者：Bin
--  发布时间：2014/6/7 9:49:00
--  
for i as integer = 1 to 5 
  Ws.PrintOut
next

这样看看