I\'ve got a report as a table. I would like to set for each column a random backgroundcolor.
For this i created a Custom Script:
Public Function GetColor
Private string _LastColorUser=""
Public Function LastColorUsed()
Return _LastColorUsed
End Function
Public Function GetColor()
Dim intHighNumber AS Decimal = 255
Dim intLowNumber AS Decimal = 100
Dim NewColor AS String
Dim Red AS Decimal = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
Dim Green AS Decimal = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
Dim Blue AS Decimal = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
NewColor = "#" & Hex(Red) & Hex(Green) & Hex(Blue)
_LastColorUser=NewColor;
Return NewColor
End Function