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

[Andreas Schneider]

Hallo Mauro,

Wie ist es machbar, dass ich die Anzahl der Ausdrucke angeben kann?

Warum machst Du hier nicht einfach eine Schleife?

For i = 1 To AnzahlAusdrucke

oWordActiveDoc.PrintOut

Next

(oder so ähnlich)

Grüße
Andreas