Error in my code?

[Guest]

I am receiving an "Object Required" Error when I run this code. I want the colorindex to change on this group of cells before the spreadsheet prints. Can I not reference an object on the spreadsheet in the This Workbook area? Is there a better way to do this? Thanks in advance. Matt

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.BlackAndWhite = True
If cbExempt.Value = True Then
Range("C31,E31,G31,I31,K31,M31,O31").Font.ColorIndex = 2
End If
End Sub

 

[Tom Ogilvy]

Where is cbExempt? (assume it is an activeX combobox) It should have some
qualification on it. I put Activesheet as an illustration.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.BlackAndWhite = True
If Activesheet.cbExempt.Value = True Then
ActiveSheet.Range("C31,E31,G31,I31,K31,M31,O31").Font.ColorIndex = 2
End If
End Sub

--
Regards,
Tom Ogilvy

I am receiving an "Object Required" Error when I run this code. I want

the colorindex to change on this group of cells before the spreadsheet
prints. Can I not reference an object on the spreadsheet in the This
Workbook area? Is there a better way to do this? Thanks in advance. Matt

 

[Tom Ogilvy]

I think it depends on the printer. Some printers recognize there is no
contrast and correct for it - I guess yours does that.

--
Regards,
Tom Ogilvy

Yes, it is an activeX combobox. If I set the page setup to .BlackAndWhite

can I not change the color of text to white? I changed the code to give it
qualification but it still prints the text in black. The combo box is on
Sheet1. Thanks.

 

[Tom Ogilvy]

sheet1.cbExempt.Value

or

IF Worksheets("sheet1").cbExempt.Value = True then

--
Regards,
Tom Ogilvy

How would I reference my combo box? My combo box name is cbExempt. If I

were referencing it, how would I finish this statement: