Access - Rectangulos con colores en informes

Hola que tal! Mi duda es que ya tengo mi base de datos completa, pero tengo que mandar a imprimir un informe el cual tenga un rectangulo que se ilumine dependiendo de 2 campos los cuales se comparan, un ejemplo de la macro que uso en el formulario:

Private Sub rectangulo_color()

If CAMPO1 > CAMPO2 Then
nivel.BackStyle = 1
nivel.BackColor = RGB(255, 0, 0)
End If

If CAMPO1 < CAMPO2 Then
nivel.BackStyle = 1
nivel.BackColor = RGB(0, 255, 0)
End If

If CAMPO1 = CAMPO2 Then
nivel.BackStyle = 1
nivel.BackColor = RGB(255, 255, 0)
End If

End Sub

Private Sub Form_Current()

rectangulo_color

End Sub


Pero en el informe no pasa nada, es posible esto?
Gracias de antemano
Ricardo

Hola Ricardo Ramirez

Cuando se Copia y Pega un Codigo y no se detiene a enteder el porque y de donde viene todo, suele suceder eso....

Private Sub Form_Current() .......??????????

De donde sale eso

Desde Venezuela
Jefferson