Error in my code?

M

Matt

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
 
T

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


Matt said:
I am receiving an "Object Required" Error when I run this code. I want
Click to expand...
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
 
T

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

Matt said:
Yes, it is an activeX combobox. If I set the page setup to .BlackAndWhite
Click to expand...
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.
 
T

Tom Ogilvy

sheet1.cbExempt.Value

or

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

--
Regards,
Tom Ogilvy

Matt said:
How would I reference my combo box? My combo box name is cbExempt. If I
Click to expand...
were referencing it, how would I finish this statement:
 
Top