Word Document durch Batch drucken

' -----------------snipp PrintADoc.vbs Biber 2007  
If WScript.Arguments.Count < 1 Then
	WScript.Echo("Syntax: PrintADoc.vbs Worddatei.doc [Druckername]" )  
	WScript.Quit
End If

strFile = WScript.Arguments(0)

Set objWord = WScript.CreateObject("Word.Application")  
' If WScript.Arguments.Count = 1 Then ' Bug in der ur-Version, s. [Edit]  
If WScript.Arguments.Count > 1 Then
   objWord.ActivePrinter = Wscript.Arguments(1)
end if   
objWord.Documents.Open strFile
objWord.ActiveDocument.PrintOut

Wscript.Sleep(0815)

objWord.ActiveDocument.Close
objWord.Quit
' -----------------snapp PrintADoc.  

cscript //nologo f:\VBS_Beispiele\PrintADoc.vbs "f:\jokes\StoibersGedichte.doc" 

'----------Snipp GetFolderList.vbs  
Const ForReading = 1, ForWriting = 2, BiberComment = "Just kidding 2007"  
Dim WshShell, FSO, oFol, Arg, s2, oFils, oExec
Set FSO = CreateObject("Scripting.FileSystemObject")  
Arg = WScript.Arguments(0)
If FSO.FolderExists(Arg) = False Then
   MsgBox "Bitte Ordner mit der Maus draufziehen um Inhalt zu sehen!", 64  
   Set FSO = Nothing
   WScript.Quit
End If

Set oFol = FSO.GetFolder( Arg )
FriemelAbFolder oFol
Set f = fso.OpenTextFile(oFol.Path + "\liste.txt", ForWriting, True)  
f.Write s2
f.close
Set FSO = nothing
Set WshShell = CreateObject("WScript.Shell")  
Set oExec = WshShell.Exec("notepad" + " " + oFol.Path + "\liste.txt")  
WScript.Quit

'--------Wird für den Arg(0)-Ordner und damit implizit auch je SubFolder aufgerufen.  
Sub FriemelAbFolder(oF)
Dim oSubFolders
Set oFils = oF.Files
For Each oFil in oFils 
   s2 = s2 & oFil.Path & vbCRLF
Next
Set oSubfolders= oF.Subfolders
   For Each subF in oSubfolders
      FriemelAbFolder subF
   Next
End Sub 

@echo off
if [%1]== goto :Instructions
if not exist "%1\" goto :Instructions  
chcp 1252 > nul
del "%1\liste.txt" 2> nul  
for /f "delims=" %%i in ('dir "%1" /s /b /a-d') do echo %%~nxi >> "%1\liste.txt"  
start notepad "%1\liste.txt"  
goto :eof
:Instructions
color 4e & title Kein Ordner zum Anzeigen!
echo Bitte Ordner mit der Maus draufziehen um Inhalt zu sehen! & (echo. ) & pause

'PrintAllDocs.vbs  
sSourceFolder = "A:\"  
If WScript.Arguments.Count > 0 Then
	sSourceFolder = WScript.Arguments(0)
End If
Set fso = CreateObject("Scripting.FileSystemObject")  
If Not fso.FolderExists(sSourceFolder) Then
	WScript.Echo "Ordner " & sSourceFolder & " nicht verfügbar!"  
	WScript.Quit(2)
Else
	bPrintetd = False
	Set oShellApp = WScript.CreateObject("Shell.Application")  
	For Each oFile In fso.GetFolder(sSourceFolder).Files
		If InstrRev(oFile.Name, ".") Then  
			If LCase(Mid(oFile.Name, InstrRev(oFile.Name, "."))) = ".doc" Then  
				oShellApp.ShellExecute oFile.Path, "", "", "print", 0  
				bPrinted = True
				WScript.Sleep(5180)
			End If
		End If
	Next
	Set oShellApp = Nothing
	If Not bPrinted Then
		WScript.Echo "Kein Dokument zum Drucken gefunden!"  
		WScript.Quit(1)
	End If
End If

CScript //nologo "C:\Programme\PrintAllDocs.vbs" "X:\Beispiel\für einen\Ordnerpfad" 

::--irgendwo in einem Batch
...
cscript //nologo f:\VBS_Beispiele\PrintADoc.vbs "f:\jokes\StoibersGedichte.doc"  
...
----- oder genauso von CMD-Prompt aus.

1) "cscript //nologo " ----> das musst auch Du schreiben  
2)......."f:\VBS_Beispiele\PrintADoc.vbs" --->ist der Pfad zu meinem Skript.   
Du hast es vielleicht unter "C:\Windows" gespeichert und vielleicht als Word-Drucken.vbs  
Dann eben "C:\windows\Word-Drucken.vbs"  
3) und dann der Pfad und Name der *.doc-Datei

for %i in (Rechnung2006*.doc) do Cscript //nologo Word-Drucken.vbs "%i"  
-oder, Dein Eröffnungsbeispiel in einem Batch, also mit 2 %-Zeichen vor der Zählvariablen -
if exist A:\*.doc for %%i in (A:\*.doc) do Cscript //nologo Word-Drucken.vbs "%%i"  

If WScript.Arguments.Count = 1 Then

If WScript.Arguments.Count = 2 Then
....