以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]WORD进程不能自动清除  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67171)

--  作者:wusim
--  发布时间:2015/4/19 18:26:00
--  [求助]WORD进程不能自动清除

Dim tm As String  = ProjectPath & "Attachments\\A.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\A" \'指定目标文件
Dim wrt As New WordReport(Tables("表"),tm,fl) \'定义一个WordReport
wrt.Build() \'生成报表
wrt.quit
Dim app As New MSWord.Application
app.Documents.Open(fl)
app.PrintOut

WORD进程不能自动清除,请问题怎样处理? 

--  作者:狐狸爸爸
--  发布时间:2015/4/19 21:31:00
--  
app.quit
--  作者:wusim
--  发布时间:2015/5/22 11:54:00
--  
报表打印2份,是不是重复加多一行 app.printout
--  作者:大红袍
--  发布时间:2015/5/22 11:56:00
--  
printout是可以设置参数的,参考

 

Ws.PrintOut(ActivePrinter:="你的打印机名")

 

http://msdn.microsoft.com/zh-cn/library/microsoft.office.tools.excel.worksheet.printout.aspx