VBA Drucken mit variabler Seitenanzahl - Word
11.07.2017 14:05:34
Hendrik
ich habe hier in diesem Forum einen passenden Code gefunden, für das automatische Drucken eines Dokuments. Leider komme ich nicht drauf, wie ich meine Variablen ("Seite" und "Kopien" richtig deklariere.
Der Code funktioniert einwandfrei ohne Variablen.
Sub Druckerwechsel_Seiten()
On Error GoTo Fehler
Dim Drucker As String
Dim Seite As Byte
Dim Kopien As Byte
Kopien = UserForm1.TextBox1.Value
Seite = UserForm1.TextBox_Ergebnis.Value
'Seite 1 drucken
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="1"
'den aktuellen Drucker merken
Drucker = ActivePrinter
If Selection.Information(wdNumberOfPagesInDocument) > 1 Then
'den Drucker auf den neuen Drucker umstellen
ActivePrinter = "MeinDrucker"
'alle Seiten ab Seite 2 ausdrucken
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="S" & Seite & Selection. _
Information(wdNumberOfPagesInDocument), Copies:=Kopien
'den aktuellen Drucker wieder zurückstellen
ActivePrinter = Drucker
End If
Fehler:
End Sub
Die Variablen kommen aus der Userform1, aus einer TextBox.
Der Code an sich befindet sich in "ThisDocument".
Kann mir jemand sagen was ich falsch mache ?
Vielen lieben Dank!
Freundlicher Gruß
Hendrik