|
Hi ich habe folgendes Marko geschrieben:
im Blatt "Menü" wähle ich einen Drucker per Gültigkeits-Dropdown aus und in Zelle h2 wird dann der Druckername (Z.B. P000A0671) aktualisiert.
4 Drucker stehn zur Verfügung.
Allerdings ist egal was ich einstelle. Es wird immer nur auf dem P000A0688 gedruckt.
Ich finde den Fehler aber nicht..
Sub druck_resv()
Dim a As Range
Set a = Range("l30")
If Sheets("Menü").Range("h2").Value = "P000A0671" Then
For i = 0 To 9
On Error Resume Next
Application.ActivePrinter = "\\S050A0009\P000A0671 auf Ne0" & i & ":"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, _
Collate:=True
Exit For
Next i
ElseIf Sheets("Menü").Range("h2").Value = "P000A0688" Then
For i = 0 To 9
On Error Resume Next
Application.ActivePrinter = "\\s050a0009.group.rwe.com\P000A0688 auf Ne0" & i & ":"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, _
Collate:=True
Exit For
Next i
ElseIf Sheets("Menü").Range("h2").Value = "P000A0835" Then
For i = 0 To 9
On Error Resume Next
Application.ActivePrinter = "\\s050a0009.group.rwe.com\P000A0835 auf Ne0" & i & ":"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, _
Collate:=True
Exit For
Next i
ElseIf Sheets("Menü").Range("h2").Value = "P001A4651" Then
For i = 0 To 9
On Error Resume Next
Application.ActivePrinter = "\\s050a0009\P001A4651 auf Ne0" & i & ":"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, _
Collate:=True
Exit For
Next i
End If
End Sub
Vielen Dank schonmal
Gruß Rob
|