Vb.net VB-打印Word文档隐藏/可见=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

我需要打印一份文档并隐藏应用程序。我正在使用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ö 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