Druckmakro erweitern auf Farbeinstellung
15.07.2019 06:57:46
Axel
ich habe einen Command Button mit folgendem Makro hinterlegt:
Sub Druck()
Dim Zelle As Range
With Range("B4")
For Each Zelle In Range(.Validation.Formula1)
.Value = Zelle.Value
.Worksheet.PrintOut
Next
End With
End Sub
Das funktioniert auch, aber mein Arbeitgeber setzt Ausdrucke automatisch auf "In Graustufen drucken". Das wird auch über Nacht wieder gesetzt, selbst wenn man das ein mal auf Farbe geändert hat. Das heißt, wenn ich in Farbe drucken möchte, muss ich vorher im Reiter "Farbe" bei den Druckeinstellungen das Häkchen aus der obigen Einstellung rausnehmen.Kann ich das nicht irgendwie auch in das Makro einbauen?
Vielen Dank vorab für eure Hilfe!
Axel