Vb.net VB-打印Word文档隐藏/可见=False
我需要打印一份文档并隐藏应用程序。我正在使用Microsoft Word 2010 我试图用下面黄色注释中显示的代码隐藏应用程序 objWord.Visible=False & objDoc.ActiveWindow.Visible=False 但窗口仍显示在这一行:Vb.net VB-打印Word文档隐藏/可见=False,vb.net,Vb.net,我需要打印一份文档并隐藏应用程序。我正在使用Microsoft Word 2010 我试图用下面黄色注释中显示的代码隐藏应用程序 objWord.Visible=False & objDoc.ActiveWindow.Visible=False 但窗口仍显示在这一行: objDoc = objWord.Documents.Open("T:\Helsingborg\A\Transport\2. Transportdrift\11. M-trp\Fraktsedlar\Växjö\Växj
objDoc = objWord.Documents.Open("T:\Helsingborg\A\Transport\2. Transportdrift\11. M-trp\Fraktsedlar\Växjö\Växjö Mall.doc")
并在到达以下位置后立即隐藏:
objDoc.ActiveWindow.Visible = False
我真的找不到任何方法来解决这个问题,因为在打开文档之前我不能使用ActiveWindow.Visible=False
这是我当前的代码
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Step 1
Dim objWord
objWord = CreateObject("Word.Application")
' Hidden window!
objWord.Visible = False
' Save the original printer, otherwise you will reset the system default!
Dim previousPrinter
previousPrinter = objWord.ActivePrinter
objWord.ActivePrinter = ""
' Step 2
Dim objDoc
objDoc = objWord.Documents.Open("T:\Helsingborg\A\....\Växjö Mall.doc")
objDoc.ActiveWindow.Visible = False
' Step 3 -- in this case, print out the document without any prompts
objDoc.PrintOut
' Restore the original printer
objWord.ActivePrinter = previousPrinter
' Step 4
objDoc.Close
' Step 5
objWord.Quit
MsgBox("Everything is now printed") ' Change to custom MSGBOX
End Sub
编辑:另一种选择是,如果我可以在不打开word的情况下打印word文档
set objDoc = GetObject(Filename)
set objWord = objDoc.Parent
代替文件。公开声明
objDoc.Close False
您是否尝试过设置Documents.Open()的可选参数“Visible:=False”?以添加@soohoonigan所说的内容…嘿,不起作用。在文档消失之前,它会在屏幕上短暂显示文档。我这样重写了它
objDoc=objWord.Documents.Open(LinDocPath,Visible=False)
我还尝试了“Visible:=False”@soohoonigan