Hallo Markus,
du kannst den Drucker wie folgt festlegen:
'Drucker festlegen
Application.ActivePrinter = "Drucker auf Ne05:"
Hier musst du den Namen den Druckers eintragen, den du ansprechen willst. Den kannst du entweder über die Hardware-Eigenschaften des Druckers ermitteln (Verwalten - Hardwareeigenschaften - Reiter "Allgemein") oder du zeichnest einfach ein Makro auf, in dem du den Drucker auswählst (vorher muss natürlich ein anderer Drucker ausgewählt worden sein) und eine Seite druckst.
Das Drucken-Makro musst du dann entsprechend ergänzen:
Sub drucken()
Dim bversteckt As Boolean
'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False
With Worksheets("Lfd.1")
'Prüfen, ob Arbeitsblatt ausgeblendet
If .Visible = False Then
bversteckt = True 'Marker für wieder ausblenden setzen
.Visible = True 'Blatt einblenden
End If
'Drucker festlegen
Application.ActivePrinter = "Drucker auf Ne05:"
'Blatt ausdrucken
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
'ggf. wieder ausblenden
If bversteckt = True Then .Visible = False
End With
'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True
End Sub
Gruß
M.O.