|
Hallo Rob,
Sorry, ich habe eben irgendwie die Mail aus Versehen weggeschickt!
Ist P000A0688 als Standarddrucker festgelegt oder vorher eingestellt? 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.
So müsste das ungefähr gehen. Die weiteren If-Abfragen sind im Pronzip gleich.
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 & ":"
if err.number=0 then exit sub
Next i
ElseIf Sheets("Menü").Range("h2").Value = "P000A0688" Then
...
End If
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, _
Collate:=True
on error goto 0
End Sub
Gruß
Holger
|