TargetFolder = "E:\Print\" 
Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace(TargetFolder) 
Set colItems = objFolder.Items 
For Each objItem In colItems 
objItem.InvokeVerbEx ("Print") 
Next

WScript.sleep 2500

Set fso=CreateObject("Scripting.FileSystemObject")
CleanPath="E:\Print\"
For Each file In fso.GetFolder(CleanPath).Files
file.delete
Next