In the Print or Format event procedure of the section which contain RAGStatus control, write the following code block:
Select Case RAG.Value
Case "R"
RAGStatus.BackColor = vbRed ' or RAGStatus.BackColor = RGB(255, 0, 0)
Case ...
...
End Select
Is this your desired?