Er findet den Drucker nicht

Sub DruckB2()
    Dim ws As Worksheet
    Dim DruckerName As String
    Dim Kopien As Integer
    
    ' Setze das Arbeitsblatt mit der Druckerliste
    Set ws = ThisWorkbook.Sheets("Drucker")
    
    ' Hole den Druckernamen aus der Zelle
    DruckerName = ws.Range(B2).Offset(0, 1).Value
    
    ' Hole die Anzahl der Kopien aus der angegebenen Zelle
    On Error Resume Next
    Kopien = ActiveSheet.Range(KopienZelle).Value
    If Kopien <= 0 Then Kopien = 1 ' Standardwert setzen, falls leer oder ungültig
    On Error GoTo 0
    
    ' Setze den Standarddrucker
    Application.ActivePrinter = DruckerName
    
    ' Drucke das aktive Blatt
    ActiveSheet.PrintOut Copies:=Kopien, ActivePrinter:=DruckerName
    
    ' Bestätigungsausgabe
    MsgBox "Gedruckt mit " & DruckerName & " in " & Kopien & " Kopien", vbInformation, "Druckvorgang abgeschlossen"
End Sub