|
ist P000A0688 als Standarddrucker festgelegt? Das Problem liegt wohl darin, dass ein anderer Drucker nicht auf Ne00 liegt, so dass zwar der richtige If-Then-Block angesteuert wird, aber wegen Resume Next die Zeile zur Umstellung des altiven Druckers übersprungen wird. Dann wird mit dem bisher eingestellten Drucker gedruckt und die For-Next-Schleife immer wegen Exit For bereits beim 1. Durchlauf (i=0) verlassen.
Sub druck_resv()
Dim a As Range
Set a = Range("l30")
On Error Resume Next
If Sheets("Menü").Range("h2").Value = "P000A0671" Then
For i = 0 To 9
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
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
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
Application.ActivePrinter = "\\s050a0009\P001A4651 auf Ne0" & i & ":"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, _
Collate:=True
Exit For
Next i
End If
on error goto 0
End Sub
|