Descrição:
Como posso modificar a cor de uma linha na impressão de um relatório de acordo com o valor de um campo?
Solução:
Isto pode ser feito no evento OnFormat do Relatório, através de um script que verifique o valor da propriedade Text do campo.
Exemplo:
Sub OnFormat
Set Detail = Report.Sections(“Detail”)
Set Field2 = Detail.Controls(“Field2”)
If Field2.text > 50 then
Field2.ForeColor = RGB(255,0,0)
Else
Field2.ForeColor = RGB(0,0,0)
End if
End Sub
NOTA: Aplicação exemplo em anexo.
Anexos:
