[Resolvido]Imprimir relatório respeitando evento "ao pintar".

Olá pessoal!

Tenho um relatório onde no evento "ao pintar" do detalhe ele muda o "backcolor" de forma condicional.

Quando peço pra visualizar o relatório, fica tudo lindo!

Agora, quando peço pra imprimir vai tudo cinza, não respeitando o evento "ao pintar" do detalhe do relatório.

Alguma solução?

Vlwwww!

Boa noite.
|Vai ver ja está configurado na sua impressora de modo cinza (preto/Branco)

Bom dia Cry.
Não é isso.
Até porque quando clico em visualizar o relatório e depois clico em imprimir ele imprime certinho.
E mesmo que no meu código de imprimir a linha pra abrir o relatório seja exatamente igual à do botão visualizar, ele abre o relatório cinza, e apenas pinta após o fim do código.
Frustrante! Kk

Boa Tarde!

Eu tenho um relatório que coloquei a condição no ao imprimir e está a imprimir com as cores programadas. O código é o seguinte:

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
If Me.MotivoFimTratamento.Value = "Faleceu" Then
Me.Paciente.ForeColor = RGB(0, 0, 0)
Me.Paciente.BorderColor = RGB(128, 128, 128)
ElseIf Me.MotivoFimTratamento.Value = "Domicilios UPA" Then
Me.Paciente.ForeColor = RGB(0, 0, 0)
Me.Paciente.BorderColor = RGB(0, 191, 255)
ElseIf Me.MotivoFimTratamento.Value = "Suspendeu" Then
Me.Paciente.ForeColor = RGB(0, 0, 0)
Me.Paciente.BorderColor = RGB(123, 104, 238)
ElseIf Me.MotivoFimTratamento.Value = "Serviço" Then
Me.Paciente.ForeColor = RGB(0, 0, 0)
Me.Paciente.BorderColor = RGB(152, 251, 152)
ElseIf Me.MotivoFimTratamento.Value = "Transferido" Then
Me.Paciente.ForeColor = RGB(0, 0, 0)
Me.Paciente.BorderColor = RGB(255, 255, 51)
Else
Me.Paciente.ForeColor = RGB(0, 0, 0)
Me.Paciente.BorderColor = RGB(255, 255, 255)
End If
End Sub

Não sei se isso resolve?

Boa noite, aqui está dando certo. São esses os código.

Boa Noite!

Não sei é se será o que o @BrunoReis pretende, ou se funciona para ele...
Fico a aguardar.

Olá! Então, aparentemente meu código segue o mesmo critério que o do @Mendes:

Private Sub CabeçalhoDoGrupo0_Paint()
If Me.StatusAtv = "A VENCER" Then
Me.CabeçalhoDoGrupo0.BackColor = RGB(243, 254, 255)
End If
If Me.StatusAtv = "REGULAR" Then
Me.CabeçalhoDoGrupo0.BackColor = RGB(237, 244, 236)
End If
If Me.StatusAtv = "VENCENDO" Then
Me.CabeçalhoDoGrupo0.BackColor = RGB(255, 245, 235)
End If
If Me.StatusAtv = "VENCIDA" Then
Me.CabeçalhoDoGrupo0.BackColor = RGB(255, 243, 243)
End If
End Sub

O jeito que encontrei para contornar o problema foi testar que se o sistema me pedia algum tipo de interação (tipo: deseja realmente imprimir esse relatório?) a coisa funcionava.
Foi o que fiz até perceber que eu realmente precisava de uma pergunta, pois após salvar o pdf eu precisava perguntar ao usuário se ele desejava enviar o relatório por E-mail.

Desta forma está a funcionar, mas ainda não entendo porque não sem este artifício.

Grato pelas opiniões!

Obg pelo retorno.