标题：[求助]EXCEL报表打印的问题

      以上是直接打印EXCEL报表的代码，如果稍加改动一下，改成先直接预览然后再打印。

     请高手帮助修改一下。谢谢！

如果这样，删除
Proc.Verb = "Print" '指定动作

这样直接预览，如果想打印，再单击打印按钮。

属性Verb可以设置打开的动作，不同的外部程序，支持的动作会不同，对于Excel文件，支持三个Verb动作：
Open: 打开，这也是默认的动作。
OpenAsReadOnly：以只读方式打开
Print：打印，完成打印后自动关闭

      删除    Proc.Verb = "Print"    后，并不是直接预览，而是打开文件。 
    
      正如yangming所述：

      Open: 打开，这也是默认的动作。


再请教一下yangming，我按如下代码测试，没有达到以只读方式打开的目的，难道代码不正确吗？

Dim Proc As New Process
Proc.File = "C:\test.xls"
Proc.Verb = "OpenAsReadOnly"      '指定动作
Proc.Start()

    谢谢回复！

 

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.Locked = True '禁止编辑
Book.Save("C:\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "C:\test.xls"
Proc.Start()

OpenAsReadOnly,这个没有达到目的,那是微软的问题,目前只能按五楼的代码处理只读的问题了

  谢谢回复！
  上述功能可以实现禁止编辑了，但它打开的不是原来已存在的电子表格文件，而是一个新建立的空白表格。
不知错在哪儿了？

你看看代码，这个代码就是新建一个Excel文件，并不是基于模板的。

im Book As New XLS.Book(ProjectPath & "Attachments\模板.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save("D:\保存路径\reports\模板.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "D:\保存路径\reports\模板.xls"

Proc.Start()

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.Locked = True '禁止编辑
Book.Build() '生成细节区
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()
这样看看,你可以在范例中的:Excel报表.table中的命令窗口中测试此代码