Выскакивающий Word

[Юджин]

Код такой

Код: Выделить всё

        Dim doc As Word.Application
        Set doc = New Word.Application
        doc.Documents.Open ("C:\FTPer\temp\" + Mid$(Date$, 4, 2) + "_" + Mid$(Date$, 1, 2) + "_" + Mid$(Date$, 7, 4) + "T" + Mid$(Time$, 1, 2) + "_" + Mid$(Time$, 4, 2) + ".htm")
        doc.Application.ActivePrinter = "\\PUBLIC\HP LaserJet 9050 PS"
        doc.ActiveDocument.PrintOut
        doc.Documents.Close
        doc.Quit


в результате word разворачивается на экран, делает задание и закрывается. а вот как сделать чтоб он не открывался на весь экран, но срабатывал?

[alibek]

Скорее всего никак.

[Twister]

Ну почему же... Можно же ручками - следить за вновь появляющимися окнами, сверять класс окна с классом WORD-а и скрывать окно...

[Юджин]

не смешно! !!!!!очень мешают открывающийся хоть на секунду ворд. вроде есть параметр visible, но когда его подключаю почему-то файл считается не открытым

[Twister]

не смешно!

Да я и не смеюсь - просто рассуждаю, как можно решить твою проблему. Попробуй как я сказал - Ворд может и мигнет, но очень быстро.
В конце концов - не обязательно юзать ворд чтоб распечатать документ... Можно ручками. (хотя прекрасно тебя понимаю - лень матушка )

[Igor_123]

Код: Выделить всё

Dim doc As Word.Application
    Dim d As Word.Document
        Set doc = New Word.Application
        doc.Visible = False
        Set d = doc.Documents.Open("C:\Private\dc.doc")
        'doc.Application.ActivePrinter = "\\PUBLIC\HP LaserJet 9050 PS"
        doc.ActiveDocument.PrintOut
        d.Close
        Set d = Nothing
        'doc.Documents.Close
        doc.Quit
       
Set doc = Nothing

И ничего не появляеться

[Twister]

А ведь и точно, я раньше видел этот способ, но не вспомнил