以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不保存文档直接打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111182)
--  作者：lur320
--  发布时间：2017/12/16 21:11:00
--  不保存文档直接打印
如题，怎么不保存文档，直接打印？
类似于下面这样的帮助文档，我看了几本都有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()
--  作者：lur320
--  发布时间：2017/12/16 21:37:00
--  
搞明白了。直接用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