|
Danke für die schnellen Antworten :-)
Der 0688 ist der Standartdrucker.. ist die immer NE00?
Bin jetzt auf diesem Stand.. Mit case isses ein bisschen übersichtlicher..
Sub druck_resv()
Dim a As Range
Set a = Range("l30")
On Error Resume Next
Select Case Sheets("Menü").Range("h2").Value
Case "P000A0671"
For i = 0 To 9
Application.ActivePrinter = "\\S050A0009\P000A0671 auf Ne0" & i & ":"
If Err.Number = 0 Then Exit Sub
Exit For
Next i
Case "P000A0688"
For i = 0 To 9
Application.ActivePrinter = "\\s050a0009.group.rwe.com\P000A0688 auf Ne0" & i & ":"
If Err.Number = 0 Then Exit Sub
Exit For
Next i
Case "P000A0835"
For i = 0 To 9
Application.ActivePrinter = "\\s050a0009.group.rwe.com\P000A0835 auf Ne0" & i & ":"
If Err.Number = 0 Then Exit Sub
Exit For
Next i
Case "P001A4651"
For i = 0 To 9
Application.ActivePrinter = "\\s050a0009\P001A4651 auf Ne0" & i & ":"
If Err.Number = 0 Then Exit Sub
Exit For
Next i
End Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, _
Collate:=True
On Error GoTo 0
End Sub
Aber der zieht sich immer den Standartdrucker :-(
|