以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何预览excel报表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25072)
--  作者：Fotable
--  发布时间：2012/10/30 17:17:00
--  如何预览excel报表
 

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.Verb = "Print" \'指定动作
Proc.Start()

 

如何把这句 换成打印预览呢

Proc.Verb = "Print" \'指定动作

 

 
--  作者：sloyy
--  发布时间：2012/10/30 18:07:00
--  

试试VBA

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("D:\\Reports\\出库单.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintPreview

[此贴子已经被作者于2012-10-30 18:08:41编辑过]