Cellefarve/billedefarve ved udskrift

Prøv at lege lidt med denne, jeg har navngivet, det område som har grønne celler, for Data.

Jeg garanterer ikke at det virker 100%, men prøv at teste

Den skal i ThisWorkbook modulet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Range("Data").Interior.ColorIndex = xlNone
    Application.EnableEvents = False
    ActiveSheet.PrintOut
    Cancel = True
    Application.EnableEvents = True
    Range("Data").Interior.ColorIndex = 4

End Sub

Den virker til dels. Den farver cellerne ved udskrift.
Problemet er så at de grønne felter er placeret forskellige steder på arket og derfor ikke kan farves ved sådan en "total farvelægning".

Er eneste metode at kode sig ud af hver eneste felt (der ved udskrift skal være hvid og bagefter grøn) ?

Du marker bare alle grønne celler, og så navngive dem.
Hold CTRL nede mens du klikker dig frem, indtil alle er markeret, Navngiv dem så

Det virker, vil du smide et svar

et svar ;-))