Moin, liebe VBA Spezialisten!
In der Zelle I2 meines Dokumentes befindet sich eine variable Zahl die angeben soll,
bis zu welcher Seitenzahl das Dokument gedruckt werden soll.
Meine Frage ist, wie ich das in VBA umsetzen kann.
Zusätzlich wird mit dem Code festgelegt, wie oft (copies) die Datei gedruckt werden soll.
Das funktioniert soweit.
__
With Worksheets("Evaluationsbogen")
If .Range("I3") <> "" Then
Do
If .Range("I3") <= .Range("I1") Then
'Wählt Drucker aus
Dim strPrinter As String
Const cstrPrinter As String = "\\Drucker1 auf Ne1:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter
.Range("I3") = .Range("I3") + 1
Else
Exit Do
End If
Loop
End If
End With
|