'pinter_PDF.vbs
'Автоматическая печать PDF-файлов, появляющихся в определенной папке
'Установите программу SumatraPDF
www.softportal.com/software-7568-sumatra-pdf.html
'Глобальные переменные
Set gFSO = CreateObject("Scripting.FileSystemObject")
Set gShell = CreateObject("WScript.Shell")
'Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
gWatchFolder = "E:\"
'Основной цикл
While true
Set lFolder = gFSO.GetFolder(gWatchFolder)
Set lFiles = lFolder.Files
WScript.Sleep(10000)
For Each lFile In lFiles
' msgbox(gWatchFolder)
'msgbox(lFile.Name)
PrintFile(gWatchFolder & lFile.Name)
Next
WEnd
'Функция печати конкретного pdf-файла
Sub PrintFile(pFileName)
'Ждем некоторе время (пока файл до конца запишется)
WScript.Sleep(10)
'msgbox(pFileName)
'Укажите путь к программе SumatraPDF
s = """C:\Program Files\SumatraPDF\SumatraPDF.exe"" -exit-on-print -print-to-default """ & pFileName & """"
'msgbox (s)
Call gShell.Run(s,0,true)
'msgbox(pFileName)
WScript.Sleep(10)
gFSO.DeleteFile(pFileName)
If gFSO.FileExists(pFileName) Then
'Мало ли чего может случиться, лучше пусть у Иван Иваныча перестанет печатать, чем один файл много раз уйдет на принтер
msgbox("Не удалось удалить файл " & pFileName & "! Позвоните компьютерщику")
WScript.Quit
'Else
'Пока не реализовано
'ToLog("Файл " & lFileName & " удален.")
End If
End sub
'Доделывал чужое под себя +7 902 44 00 00 6 Компьютерщик www.2133790.Ru
'брал исходник здесь
https://habrahabr.ru/post/112404/ и спасибо автору за ответы на мои вопросы
'отсюда
autoit-script.ru/index.php?topic=21264.0
'и отсюда
www.cyberforum.ru/vbscript-wsh/thread1445205.html