以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  还是关于打印并保存文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68061)
--  作者：dj68301367
--  发布时间：2015/5/8 16:43:00
--  还是关于打印并保存文件
Dim Book As New XLS.Book(ProjectPath & "Attachments\\生产请购单.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\" & [产品型号] & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(7,2).Value = "制单人:" & User.Name \'加入制单人信息
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

错误提示，产品型号未声明
--  作者：Bin
--  发布时间：2015/5/8 16:45:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\生产请购单.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\" & Tables("表名").current("产品型号") & ".xls"
--  作者：dj68301367
--  发布时间：2015/5/8 17:08:00
--  
谢谢BIN，想点击直接进入预览，在帮助中找到直接打印的代码。。。请问预览的代码是什么。

Proc.Verb = "Print" \'指定动作
--  作者：Bin
--  发布时间：2015/5/8 17:09:00
--  

示例二

利用属性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动作。
--  作者：大红袍
--  发布时间：2015/5/8 17:17:00
--  
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