以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel 报表预览问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41875)
--  作者：jswjyjf
--  发布时间：2013/10/29 15:15: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.Start()

 

以上代码预览的结果 不好看 ，有没有直接预览 如excel 的预览

 
--  作者：Bin
--  发布时间：2013/10/29 15:15:00
--  
这个就是直接打开Excel预览的啊
--  作者：jswjyjf
--  发布时间：2013/10/29 15:19:00
--  

我要的是 直接这样的

 


图片点击可在新窗口打开查看此主题相关图片如下：123.jpg
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2013/10/29 15:25:00
--  
Dim Proc As New Process \'打开工作簿
Proc.File = fl
proc.Verb="Print"
Proc.Start()

可以直接打印,预览的就不行了,只能手动点一下.
--  作者：jswjyjf
--  发布时间：2013/10/29 15:31:00
--  

再手动点一下预览 哈哈

 
--  作者：e-png
--  发布时间：2013/10/29 16:22: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)
App.Visible = True
Ws.PrintPreview
App.Quit