主题：还是关于打印并保存文件

谢谢BIN，想点击直接进入预览，在帮助中找到直接打印的代码。。。请问预览的代码是什么。

示例二

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

例如：

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

上面的代码将打开文件c:\test.xls，然后执行打印命令，打印结束后自动关闭Excel。

如果要获得某一文件类型支持的全部Verb动作，可以参考下面的代码：

Dim Proc As New Process
Proc.File = "C:\test.txt"
For Each Verb As String in Proc.Verbs
    Output.show(Verb)
Next

在命令窗口执行上面的代码，可以列出文本文件支持的verb动作。

Dim Book As New XLS.Book(ProjectPath & "Attachments\生产请购单.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\" & Tables("表名").current("产品型号") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(7,2).Value = "制单人:" & User.Name '加入制单人信息
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