Anzahl der Ausdrucke angeben...

[Mauro Palumbo]

Hallo zusammen,

leider kenne ich mich nicht so gut mit VBScript aus.
Wie ist es machbar, dass ich die Anzahl der Ausdrucke angeben kann?

Dim DocToPrint, oWord, oDoc
DocToPrint = "C:\datei.doc"

Drucker = "FreePDF"
savDrucker = ActivePrinter

Set oWord = CreateObject("Word.Application")
Set oWordActiveDoc = oWord.Documents.Open("" & DocToPrint)

ActivePrinter = Drucker
oWordActiveDoc.PrintOut
oWordActiveDoc.Close
ActivePrinter = savDrucker

Set oWord = Nothing
WScript.Quit(0)

Besten Dank.
Gruss
Mauro