以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  只预览，不打印？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46336)
--  作者：发财
--  发布时间：2014/2/21 10:30: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.Verb = "Print" \'指定动作
    Proc.Start()
如何将上面改为只预览，不打印呢？
--  作者：Bin
--  发布时间：2014/2/21 10:31:00
--  
Proc.Verb = "PrintView" \'指定动作
--  作者：Bin
--  发布时间：2014/2/21 10:32:00
--  
可能是  "Preview"
--  作者：发财
--  发布时间：2014/2/21 10:33:00
--  
预览时规定不能打印呢？
--  作者：狐狸爸爸
--  发布时间：2014/2/21 10:34:00
--  

用vba:

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=46027&replyID=296746&skin=1

 
--  作者：Bin
--  发布时间：2014/2/21 10:35:00
--  
这个,就不好办了.  你直接用浏览器控件 显示Excel报表当作预览吧
--  作者：发财
--  发布时间：2014/2/21 10:36:00
--  
出现错误：没有应用程序与此操作的指定文件有关联。
--  作者：Bin
--  发布时间：2014/2/21 10:38:00
--  
你没有安装OFFICE么? 还是说安装的是精简版? 或者是WPS?
--  作者：发财
--  发布时间：2014/2/21 10:53:00
--  

怎么办呢？
--  作者：Bin
--  发布时间：2014/2/21 10:54:00
--  
安装完整版的OFFICE