Question

我需要打印文档并隐藏应用程序。我使用的是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文档，则可以选择。

Answer 1

set objDoc = GetObject(Filename)
set objWord = objDoc.Parent

代替Documents.Open声明

objDoc.Close False

VB - 打印Word文档隐藏/可见=错误

1 个答案: