Udskriv alle filer i mappen

Jeg vil gerne kunne udskrive alle dokumenter i en mappe.
Hvis jeg markerer alle og højreklik/Udskriv bliver de faktisk alle skrevet ud, men kan jeg ikke hitte ud af.

Jeg vil derfor gerne lave et lilel script som skriver alle filer ud alfabetisk.

Det skal nok lige siges, at jeg INTET kender til VBscript, så nedenstående er nok lidt rodet og det er sikkert bare en simpel ting som lige skal rettes.

fdrName ="C:\Ny mappe\Printfiler"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(fdrName)
Set colFiles = objFolder.Files
Set oShellApp = CreateObject("Shell.Application")

For Each objFile in colFiles
    fName = objFile.Name
    Wscript.Echo fName
    Set oFolder = oShellApp.Namespace(fdrName)
    oFolder.ParseName(fName).InvokeVerb("&Udskriv")
Next

Løkken kører fint, men af en eller anden grund skrives kun den første fil ud.