habe folgendes Problem:
da nicht immer ein Farbdrucker zur Verfügung steht, habe ich den o.g. Parameter mittels VBA angesprochen, um alle Seiten einer Exceldatei gleichzeitig in der Einstellung zu ändern:
Private Sub FarbeAus() 'Ändert die Druckoption auf s/w
On Error Resume Next
Dim Blatt As Object
Application.ScreenUpdating = False
For Each Blatt In ActiveWorkbook.Sheets
Blatt.PageSetup.BlackAndWhite = True
Next Blatt
Application.ScreenUpdating = True
Set Blatt = Nothing
End Sub
Leider hat sich herausgestellt, dass es elend lange dauert, bis diese Prozedur abgearbeitet ist, gleiches gilt für die manuelle Betätigung unter "Seite einrichten"\Tabelle.
Hat jemand eine Idee, woran das liegt bzw. wie das Problem umgangen werden kann?
mfg
Berthold Grabe