printing problem in excel 2007

my windows (windows 7) theme is WINDOWS CLASSIC that is yellow text on black back background. So if I print an excel sheet (excel 2007) (HP deskjet printer F 4100 series) i get yellow text on white paper. This is not readable. I wrote the following macro and run it before printing.

======
Sub ccolor()
Worksheets("sheet1").Activate
Dim r As Range
Set r = Range("$A$6:$G$45")
MsgBox r.Address
r.Select
r.Cells.Interior.color = RGB(255, 255, 255)
r.Cells.Font.color = RGB(1, 1, 1)

MsgBox "macro over. now print"
End Sub

====================

even then though all the columns except one column is black print on white paper. But one column is again is yellow. that column is text.

why is it so;l

To circumvent the problem I change the theme to windows basis (black on white) and print then it is ok. But this theme is not good on the eye and so change it back to Classic. so every time I print I have to change the theme and then back after printing.

Is there any way out. Many thanks

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)