Farvelæg 2 tal i Raport efter værdi

Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If PrisPrEnhed = 1,00 Then
Felt1.ForeColor = lngWhite
End if
end sub

Formater > betinget formatering

KISS

Hvorfor gøre det mere indviklet end det nu engang er?
Se venligst bort fra mit svar.