Diagramme mittels VBA farbig drucken - Druckernetzwerk S/W

[Simlibimli]

Hallo Zusammen,

Die Drucker in der Firma sind Standardmässig auf S/W eingestellt. Möchte man in Farbe drucken muss bei jedem Druck die Druckereigenschaften geändert werden.

Ich habe eine Excel-Datei mit mehreren Diagrammen die in Farbe gedruckt werden soll. Gibt es die Möglichkeit mittels Makro die Druckereigenschaften vor dem Druck
zu ändern?

Des Weiteren habe ich den Druckvorgang mittels Aufzeichnung gemacht. Evtl. gibt es da auch noch einen einfacheren Befehl?

Sub Printout()
     Sheets("Name").ChartObjects("Graphique 1").Activate
    ActiveWindow.SelectedSheets.Printout Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub


Ich bin für jede Hilfe Dankbar!

[schauan]

Hallo,

am einfachsten wäre, wenn Du einen zweiten Drucker mit Farbe als Standard einrichtest und diesen dann zum Druck auswählst. Geht das bei Euch?
Ansonsten, schaue Dir mal diese Seite an, was die Änderung von Einstellungen für Klimmzüge kostet:
http://die-schwimmers.de/vba099.htm
Einschließlich "programmierter Leerzeilen" sind das 660 Zeilen Code.

Der zweite Code ist ok.
Wenn Du das Diagramm selbst wählst, kannst Du die erste Zeile im Sub weglassen.
Beim Druckbefehl werden mehrere Optionen angegeben. Da kannst Du probieren, ob Du etwas weglassen kannst