Drucker im netzwerk ändern
15.08.2006 18:19:40
Peter
und wiedermal habe ich eine Frage an euch.
Ich habe mir mit dem Macrorecorder ein Macro zum Drucken der Miagramme erstellt.
Läuft ganz gut so.
Da ich in meiner Firma in einem Netzwerk arbeite und oft den Arbeitsplatz wechsele, habe ich das Problem das die Ausdrucke nur an dem bestimmten Drucker ausgedruckt werden.
Kann mir jemand das Macro so ändern das ich auf dem an dem Arbeitsplatz angemeldeten Drucker per Macro ausdrucken kann.
Da die meisten Drucker die Optionen Optimal, Normal und Schnelldrucken haben,
ist es dann auch möglich mit diesem Macro immer einen Schnelldruck zu machen.
Der folgende Code bezieht sich nur auf den eingegebenen Druckr und soll sich auf den jeweils am Arbeitsplatz eingerichteten Drucker beziehen.
Kann jemand helfen.
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Nr.11").Select
Range("D7").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
Application.ActivePrinter = "\\depacnglwvms5c7\LPQ3 auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\depacnglwvms5c7\LPQ3 auf Ne05:", Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.10").Select
Range("D5").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Range("D5").Select
Sheets("Nr.9").Select
Range("D7").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Range("D9").Select
Sheets("Nr.7").Select
Range("C6").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.6").Select
Range("C8").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Range("D5").Select
Sheets("Nr.7").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveWindow.Visible = False
Range("D6").Select
Sheets("Nr.5").Select
Range("D6").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.4").Select
Range("D7").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.3").Select
Range("D6").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartTitle.Select
ActiveChart.Axes(xlValue).Select
ActiveChart.ChartTitle.Select
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.2").Select
Range("D8").Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.Shapes("Text Box 3").Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Shapes("Text Box 3").Select
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.1").Select
Range("C8").Select
ActiveSheet.ChartObjects("Diagramm 19").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Grobe-Analyse").Select
Range("D8").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Eingabe").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub