Word- und PDF-Dokumente und Excel-Tabellen via Batch drucken?

Hallo!

Ich möchte mithilfe einer Batch-Datei wie im Titel beschrieben verschiedene Datei-Formate ausdrucken lassen. Doch es will nicht so ganz funktionieren...

Ich habe mir mithilfe einiger hier geschilderter Tipps für den Druck von Word-Dokumenten eine Batch-Datei geschrieben, die auf die Lösungsansätze aus diesem Thread basieren.

Doch leider wirft das Programm bei mir nur eine Fehlermeldung aus (Kompilierungsfehler). Zudem kann ich auch nicht auf den LPT1-Trick zurückgreifen, da der Drucker über den USB-Port angeschlossen worden ist und ich auch keine Veränderungen am bestehenden System vornehmen kann, weil es nicht mein eigener Rechner ist (damit fällt die Installation von Zusatzsoftware leider auch weg.)

Also, was ich ganz allgemein mit der Batch-Datei erreichen möchte:

In einem Ordner (hier: resources/00001234/ ), den der User zuvor durch eine simple Abfrage selbst raussucht, sind verschiedene Dateien, die die Stapelverarbeitung alle ausdrucken soll.

Mit dem print-Befehl kommt dabei nur die Anzeige, dass gedruckt wird. Auf diese ganze Geschichte mit LPT1 kann ich wie oben geschildert auch nicht zurückgreifen.


Dieser Code funktioniert leider auch nur bei Text-Dokumenten, bei allen anderen Formaten bekomme ich logischerweise nur lauter Müll.

Gibt es da eventuell eine - für die drei genannten Formate - universelle Lösung, die im besten Fall auch nicht auf externe Dateien zurückgreift.

Und noch eine kurze Frage, die nicht direkt mit dem Thema selbst zu tun hat, aber ich stelle sie dennoch hier, da ich nicht extra einen Thread dafür eröffnen möchte:
Gibt es eine include-Funktion in Batch-Dateien? Ich habe schon danach gesucht, aber leider nichts vernünftiges finden können.

Den Befehl kenne ich nämlich aus PHP und damit könnte ich nämlich problemlos das Batch selbst mit einer anderen integrierten Batchfile bearbeiten, da ich dann die einzelnen Bestandteile der ersten Batch in Text-Dateien auslasten könnte.

'PrintCertainFiles.vbs  
sSourceFolder = "D:\resources\00001234" ' Standard-Ordner; kann durch Übergabe eines Ordners als Parameter ersetzt werden  
sDateitypen = "#doc#docx#pdf#xls#xlsx#" ' zu verarbeitende Dateitypen - bitte nur in Kleinbuchstaben  
iWartezeit = 5 'Pause in Sekunden bis zur Verarbeitung der nächsten Datei  

If WScript.Arguments.Count > 0 Then
    sSourceFolder = WScript.Arguments(0)
End If
Set fso = CreateObject("Scripting.FileSystemObject")  
If sSourceFolder = "" Or Not fso.FolderExists(sSourceFolder) Then  
    WScript.Echo "Ordner """ & sSourceFolder & """ nicht verfügbar!"  
    WScript.Quit(2)
Else
    Set oShellApp = WScript.CreateObject("Shell.Application")  
    For Each oFile In fso.GetFolder(sSourceFolder).Files
        If InStr(sDateitypen, "#" & LCase(fso.GetExtensionName(oFile.Name)) & "#") > 0 Then  
            oShellApp.ShellExecute oFile.Path, "", "", "print", 0  
            bPrinted = True
            WScript.Sleep(1000 * iWartezeit)
        End If
    Next
    Set oShellApp = Nothing
    If Not bPrinted Then
        WScript.Echo "Kein Dokument zum Drucken gefunden!"  
        WScript.Quit(1)
    End If
End If

if exist "Temp.bat" (  
copy "Temp.bat"+"%~1" "Temp.bat"  
) else (
>"Temp.bat" more +%~2 "%~1"  
)

rem Die 6 steht für die Anzahl Zeilen in dieser Datei, die ausgelassen werden sollen
2>nul del "Temp.bat"  
@call include "%~0" 6  
@call include "Bsp.txt"  
start "Temp.bat"  
goto :eof
call :Ordner

:Ordner
cd
pause

call :Ordner
cd
pause

C:\Scripts\PrintCertainFiles.vbs "D:\Dein anderes Verzeichnis"

cscript //nologo C:\Scripts\PrintCertainFiles.vbs "D:\Dein anderes Verzeichnis"

cscript //nologo C:\Scripts\PrintCertainFiles.vbs "D:\Dein anderes Verzeichnis"
> 

wscript //b C:\Scripts\PrintCertainFiles.vbs "D:\Mein Verzeichnis"

start "Drucken ..." /wait cscript //nologo C:\Scripts\PrintCertainFiles.vbs "D:\Dein anderes Verzeichnis"