主题：不保存文档直接打印

如题，怎么不保存文档，直接打印？

类似于下面这样的帮助文档，我看了几本都有save的命令。

可以不保存在本地盘直接打印么？

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()

搞明白了。直接用VBA的命令。

‘Dim Book As New XLS.Book(ProjectPath & "Attachments\wo release.xls")
            ‘Book.Build() '生成细节区
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook =App.WorkBooks.Open(ProjectPath & "Attachments\wo release.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Wb.WorkSheets(1).range("d12").Value = "hhh123"
Wb.WorkSheets(1).range("d21").Value = "hhh123"
Wb.WorkSheets(1).range("d23").Value = "hhh123"
Wb.WorkSheets(1).range("c27").Value = "hhh123"
Wb.WorkSheets(1).range("c29").Value = "hhh123"
Ws.PrintPreview
App.Quit