Dim defPrinter As String, tmpPrinter As String
    Dim WshNetwork As Object
 
On Error GoTo Fehler
    ''' ermittle den Standarddrucker (meinen :-)
 defPrinter = "mein Drucker xy)    
    ''' ###  T E S T ###
    ''' InputBox, wo soll gedruckt werden
 tmpPrinter = InputBox("Rechnername auf dem aktuell gedruckt werden soll")
 tmpPrinter = "\\A" & tmpPrinter & "\B" & tmpPrinter
 
 Set WshNetwork = CreateObject("WScript.Network")
    ' Verbindung zum temprären Drucker aufbauen
     WshNetwork.AddWindowsPrinterConnection tmpPrinter
 
    ' temporärer als Standarddrucker setzen
     WshNetwork.SetDefaultPrinter tmpPrinter
 
 '######################
 '###  d r u c k e n ###
 '######################
 
 '???? ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
 '???? passiert nix ?
 
 
 ' den speziellen Drucker wieder löschen
 WshNetwork.RemovePrinterConnection tmpPrinter
Fehler:
' setzte wieder den Standarddrucker
 WshNetwork.SetDefaultPrinter defPrinter 
 
End Sub