主题：只预览，不打印？

    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 = "PrintView" '指定动作

可能是  "Preview"

预览时规定不能打印呢？

用vba:

 

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

 

这个,就不好办了.  你直接用浏览器控件 显示Excel报表当作预览吧

出现错误：没有应用程序与此操作的指定文件有关联。

你没有安装OFFICE么? 还是说安装的是精简版? 或者是WPS?

怎么办呢？

安装完整版的OFFICE