Office: Wie via Printbutton auf Standarddrucker drucken?

Hallo Zusammen

Ich habe ein Worddokument mit einer Coverseite erstellt. Auf der Coverseite sind die Folgeseiten (nach deren Bezeichnung) mit jeweils einem Kontrollkästchen aufgelistet. Zudem habe ich noch ein Printbutton auf die Coverseite eingefühgt. Der Gedankte ist, dass ich mit den Kontrollkästchen/Printbutton selektieren kann, welche von den Seiten ich drucken möchte. Dies funktioniert soweit gut. Was mich jedoch stört ist, dass mir immer der Standarddrucker nach dem Drucken umgestellt wird. Dies liegt and dem Code denn ich erfasst haben. Der sieht wie folgt aus:

Code:

Sub printOutPages()
Dim seiten

.
.
.
If (ActiveDocument.FormFields("xx3").CheckBox.Value = True) Then If (seiten = Empty) Then seiten = "41" Else seiten = seiten + "," + "41"
If (ActiveDocument.FormFields("xx4").CheckBox.Value = True) Then If (seiten = Empty) Then seiten = "42" Else seiten = seiten + "," + "42"
If (ActiveDocument.FormFields("xx5").CheckBox.Value = True) Then If (seiten = Empty) Then seiten = "43" Else seiten = seiten + "," + "43"
If (ActiveDocument.FormFields("xx6").CheckBox.Value = True) Then If (seiten = Empty) Then seiten = "44" Else seiten = seiten + "," + "44"
If (ActiveDocument.FormFields("xx7").CheckBox.Value = True) Then If (seiten = Empty) Then seiten = "45" Else seiten = seiten + "," + "45"
If (ActiveDocument.FormFields("xx8").CheckBox.Value = True) Then If (seiten = Empty) Then seiten = "46" Else seiten = seiten + "," + "46"

If (seiten = Empty) Then seiten = "1" Else

    ActivePrinter = "FinePrint"
    Application.printOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:=seiten, PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Wie müsste der Code sein, dass die Seiten auf den jeweiligen Standarddrucker des Benutzers gedruckt werden? Habt ihr ev. auch eine bessere Variante bezüglich des Codes für das Drucken der selektierten Kontrollkästchen?

Vielen Dank
Saldana

 

ich hätte die Zuweisung des Druckers gelöscht.
ActivePrinter = "FinePrint"

 

Besten Dank. Funktioniert bestens. (habe immer gedacht, dass man zwingend einen Durcker zuweisen muss)