And this was empty :-(

Anyway

I need som code to change interior colors before print, and reset them
after.

I have tried something like this on the Before_Print Event

Range("A1").Interior.ColorIndex = xlNone
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A1").Interior.ColorIndex = 6

The problem is, that the sheet is printed twice, onece without the
background color, and once with it.

If I add

Cancel = True, nothing is printed at all.

Jan