mutiple Font Colors on a report

  • Thread starter Thread starter jeffs
  • Start date Start date
J

jeffs

Guest
I am trying to assign color values to a report for three different firefighting shift. My goal is that people on shift 1 be gold/yellow, shift 2 black, and shift 3 red. So far I have been unsuccesful. Please help.
 
Yes,you can...Here's an example of some code behind the On Print (or On Format) of Detail section of the report:

'------------------------
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If [Shift] = 1 Then
[NameOfControl].ForeColor = "52479" 'Gold
ElseIf [Shift] = 2 Then
[NameOfControl].ForeColor = "0" 'Black
ElseIf [Shift] = 3 Then
[NameOfControl].ForeColor = "255" 'Red
End If
End Sub
'--------------------------

Good Luck
Hoa Le
 

Users who are viewing this thread

Back
Top Bottom