Drucker auswählen
12.06.2006 15:26:17
volker
(ich hab schon mit Hilfe des Forums untenstehendes makro erhalten, komm aber damit nicht richtig hin.
Ich hab eine bestimmte Seiteneinrichtung die für 1 Sheet kurzeitig aufgehoben werden soll:
Ist es möglich, dass ich sagen kann wenn gedruckt wird, dann nimm beim Sheet "Kleber" den Drucker: Brother QL-550 auf Ne08: mit einer ganz bestimmten Seiteneinrichtung, Druck es aus und danach gehe wieder zur vorigen Seiteneinrichtung und wähle wieder den Standartdrucker(die Datei liegt nachher auf dem Server und nicht alle nutzen den selben Drucker).
Kann mir da jemand mit einem makro witerhelfen?
Vielen Dank Gruss volker
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Abhängig vom Namen des aktiven Tabellenblatt wird der Drucker gewählt
Select Case ActiveSheet.Name
Case "Kleber"
'Drucken auf Farbdrucker (Netzwerk)
Application.ActivePrinter = "Brother QL-550 auf Ne08:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, _
ActivePrinter:="Brother QL-550 auf Ne08:", Collate:=True
'Case "Sticker"
'Drucken auf Labeldrucker (Netzwerk)
' Application.ActivePrinter = "\\s050a1025\P000A6084 auf Ne04:"
'Case Else
'Drucken auf lokalem Drucker (Standarddrucker)
' Application.ActivePrinter = "HP LaserJet 4 auf LPT1:"
End Select
End Sub