Ciao a tutti ho un cartella excel con delle macro.

Su un foglio ho un pulsante che richiama una funzione per la stampa, riporto codice modulo :
(solo parte che riguarda stampa)

----
ActiveSheet.PageSetup.PrintArea = par
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.15748031496063)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.CenterFooter = rigMancanti '""
'.PrintQuality = -4
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False 'mettere a false se la stampa e a colori
.Zoom = 75
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
----

Il parametro BlackAndWhite è impostato a False perciò le stampe dovrebbere essere stampante inpresenza di colore, invece sempre tutto nero.
Qualcuno mi da qualche dritta in merito ?

Grazie