Drucker
Hermann
Ich habe folgendes Problem:
Es befindet sich direkt ein Drucker an einem Rechner der wiederum von anderen (Netzwerk Nutzer) genutzt werden kann. Dieser Drucker soll von allen gebraucht werden. Ich brauche ein Code der beide Möglichkeit durchläuft und beendet wenn er den Drucker gefunden hat. Der Code den ich dazu geschrieben habe, aber nicht beide Optionen beinhaltet, sieht wie folgt aus.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Drucker As String
Dim ne As String, Printer$, i%
Drucker = Application.ActivePrinter
Printer = "\\Sum-nl03\HP LaserJet 2200 Series PCL 6 auf Ne" '*** nur Netzwerk nutzer
oder
'Printer = "HP LaserJet 2200 Series PCL 6 auf Ne" *** ohne Netzwerk
On Error Resume Next
For i = 0 To 9
ne = Format(i, "00")
Err.Number = 0
Application.ActivePrinter = Printer & ne & ":"
If Err.Number = 0 Then
Exit For
End If
Next
Sheets("Tabelle1").PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = Drucker
End Sub
Ich bin für jede Idee dankbar. Gruß Hermann