…отчего-то некоторые остаются даже после закрытия.

При некорректном завершении приложения. Либо при разрыве соединения.

Ну, вставьте проверку, что соответствующий файл «*.doc» не является скрытым и не начинается с символов «~$».

достаточно закрывать файлы

В этом Вы совершенно правы, однако всем свою голову не наставишь, а так же при работе на сервере отчего-то некоторые остаются даже после закрытия.

Вы имеете ввиду временные файлы, появляющиеся при редактировании документа WINWORDa типа ~$DocName.doc (скрытые файлы)?

Да, именно их.

А возможно ли добавить исключение для временных файлов, что бы они не выводились на печать?

Вы имеете ввиду временные файлы, появляющиеся при редактировании документа WINWORDa типа ~$DocName.doc (скрытые файлы)?

Прошу прощения, mola, я просто сделал ошибку в команде: там на 25й строке вместо printInFolders(objSubFolder) нужно писать printInSubFolders(objSubFolder). Теперь всё, исправил.

Спасибо Вам огромное! Замечательно печатает.
А возможно ли добавить исключение для временных файлов, что бы они не выводились на печать?

Попробовал Ваш скрипт.
Доходит до момента распечатки документов из вложенных папок и выскакивает сообщение об ошибке:
строка 25
символ 9
не определена переменная "printInFolder".
код 800A01F4

Как с этим бороться?

Ага действительно простой, а еще странноватый: Открывет приложения всех зарегистрированных типов файлов, находящихся в указанной папке, а на печать идут только документы Word... Может глюки на моем компе?

Скажем так: если файл не распечатывается через меню  "печать"  всплывающего меню проводника в "ручном" режиме, то скрипт не поможет.
В ссылке которую я приводил уже писали в частности, что для печати PDF нужно использывать алтернативные решения.

Вот простой способ распечатать все файлы из каталога C:\Logs
...(код)

Ага действительно простой, а еще странноватый: Открывет приложения всех зарегистрированных типов файлов, находящихся в указанной папке, а на печать идут только документы Word... Может глюки на моем компе?

Доброго времени суток.

К сожалению до программирования не дорос пока, но столкнулся с одной не большой проблемой. Мне необходимо автоматически распечатывать doc и pdf файлы из указанной папки. То есть как только файл попадает в папку он должен распечататься а затем удалиться из нее. Так называемая "Очередь печати")).  Облазил сеть ничего не нашел(. Если есть возможность помогите.

P. S. В VBScript'ах не разбираюсь.  Подскажите как установить написанный выше скрипт?

Заранее благодарен, форумчанин-нуб)

Вот простой способ распечатать все файлы из каталога C:\Logs

Option Explicit
Const PrintFolder = "C:\Logs\" 


DIM objShell : Set objShell = CreateObject("Shell.Application")
DIM objFolder : Set objFolder = objShell.Namespace(PrintFolder) 
Dim objItem
For Each objItem in objFolder.Items
    'WScript.Echo "Printing..." & objItem.Path
    objItem.InvokeVerbEx("Print")
Next

С удалением сложней из-за того что нужно дождаться пока файл будет напечатан внешним приложением.

почитайте здесь:
http://forum.script-coding.com/viewtopic.php?id=3059

а нельзя ли добавить возможность распечатывать документы и из всех вложенных папок?

Добрый вечер. Можно.

Option Explicit

Const wdDoNotSaveChanges    =  0
Const wdPromptToSaveChanges = -2
Const wdSaveChanges         = -1

Dim objWord, objDoc, objFS, objPath, objFolder, objSubFolder, objItem

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objWord = WScript.CreateObject("Word.Application")
Set objPath = objFS.GetFolder("c:\work\temp\") 'Папка, из которой производится печать

printInSubFolders objPath
Sub printInSubFolders(objFolder)
    For Each objItem In objFolder.Files
        If StrComp(objFS.GetExtensionName(objItem.Name), "doc", vbTextCompare) = 0 Then
            With objWord
                Set objDoc = .Documents.Open(objItem.Path, False, True, False)
                objDoc.PrintOut False
                Set objDoc = Nothing
            End With
        End If
    Next
    For Each objSubFolder In objFolder.SubFolders
        printInSubFolders(objSubFolder)
    Next
End Sub

objWord.Quit
Set objWord = Nothing
WScript.Quit 0