[Dreamer_UFA]

В общем для себя решение нашел. Может кому то будет полезно.

Создаем папку на любом диске (в моем случае d:\doc)
Устанавливаем PDF Creator или подобный
Запускаем скрипт и ВУАЛЯ

Все файл .pdf что попадают в папку - идут на печать и удаляются.

Моя задача была печать ценников с web консоли МойСклад. Все работает.
Ценник сохраняется в папку и автоматически уходит на принтер этикеток.

Код:

Option Explicit : Dim objWord, objDoc, wssh, objFS, objShell, objPath, objFolder, objItem

Set wssh = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objPath = objFS.GetFolder("d:\doc\") 'Папка, из которой производится печать

Do
  PrintDelInFolder objPath
  WScript.Sleep 1000
Loop

Sub PrintDelInFolder(objFolder)
    For Each objItem In objFolder.Files
        If StrComp(objFS.GetExtensionName(objItem.Name), "pdf", vbTextCompare) = 0 Then
            	With wssh
			WScript.Sleep 1000
                	On Error Resume Next
			dim f
			f = Cstr(objItem.Path+".pdf")
			objFS.MoveFile objItem.Path, f
			If err.number=0 then 
				Set objShell = CreateObject("Shell.Application")		
				objShell.ShellExecute f, "vbHide", "", "print", 0
				set objShell = nothing
				err.Clear
				Do
				WScript.Sleep 5000
				objFS.DeleteFile f ,true 
            			Loop While objFS.FileExists(f)
				err.Clear
			End If
			On Error Goto 0
		End With
        End If
    Next
End Sub
WScript.Quit 0

Всем спасибо.