Tabellenbereich farbig ausdrucken
28.03.2014 11:03:19
Peter
Ich möchte einen Tabellenbereich farbig ausdrucken.
Trotz "BlackAndWhite = False" wird schwarz/weiss gedruckt.
Was fehlt in meinem Code?
Gruss, Peter
Sub XXX()
With Sheets("Tabelle2")
With .PageSetup
.Orientation = xlLandscape
.FitToPagesTall = False
.FitToPagesWide = 1
.BlackAndWhite = False
End With
End With
Range("_Auswertung_01").PrintOut
End Sub
Anzeige