'Автоматическая печать PDF-файлов, появляющихся в определенной папке
Set gFSO = CreateObject("Scripting.FileSystemObject")
Set gShell = CreateObject("WScript.Shell")
'Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам)
gWatchFolder = "C:\printer\"
While true
 Set lFolder = gFSO.GetFolder(gWatchFolder)
 Set lFiles = lFolder.Files
 For Each lFile In lFiles
  fileName = gWatchFolder & lFile.Name
  if gFSO.GetExtensionName(fileName) = "pdf" And InStr(gFSO.GetBaseName(fileName), "Чек") = 1 then
   PrintFile(gWatchFolder & lFile.Name)
  End If
 Next
 WScript.Sleep(3)
WEnd
 
'Функция печати конкретного pdf-файла
Sub PrintFile(pFileName)
 'Ждем некоторое время (пока файл до конца запишется) 
 WScript.Sleep(6)
 'msgbox(pFileName)
  s = """c:\Program Files\SumatraPDF\SumatraPDF.exe"" -print-to-default """ & pFileName & """"
 's = """c:\Program Files\Foxit Software\Foxit Reader\FoxitReader.exe"" /p """ & pFileName & """"
 's = """C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe"" /N /T """ & pFileName & """"
 'msgbox (s)
 Call gShell.Run(s, 0, true)
 WScript.Sleep(6)
 gFSO.DeleteFile(pFileName)
 If gFSO.FileExists(pFileName) Then
  WScript.Quit
 End if
End sub