COR DA LINHA IMPRESSA PRINTDOCUMENT
Pressoal,
Estou criando um relatório, que ao imprimir o valor, se for credor imprime em azul e se for devedor em vermelho.
Gostaria de saber se existe alguma forma de fazer isso dinâmico como o exemplo abaixo:
Dim cor As System.Drawing.Brushes = Me.BackColor [ô] variavel da cor do texto
if condicao = [Ô]C[Ô]
cor = color.blue
else
cor = colo.red
endif
e.Graphics.DrawString(Format(saldo, [Ô]###,###,##0.00;###,###,##0.00-[Ô]), New Font([Ô]Arial[Ô], 8, FontStyle.Bold), cor, MargemEsquerda + 400, PosicaoDaLinha + 4, drawFormat)
Não funciona!!!
Alguem tem alguma dica ?
Estou criando um relatório, que ao imprimir o valor, se for credor imprime em azul e se for devedor em vermelho.
Gostaria de saber se existe alguma forma de fazer isso dinâmico como o exemplo abaixo:
Dim cor As System.Drawing.Brushes = Me.BackColor [ô] variavel da cor do texto
if condicao = [Ô]C[Ô]
cor = color.blue
else
cor = colo.red
endif
e.Graphics.DrawString(Format(saldo, [Ô]###,###,##0.00;###,###,##0.00-[Ô]), New Font([Ô]Arial[Ô], 8, FontStyle.Bold), cor, MargemEsquerda + 400, PosicaoDaLinha + 4, drawFormat)
Não funciona!!!
Alguem tem alguma dica ?
Sei fazer, é bem fácil, mas no Crystal Reports. Se faz as fórmulas para colorir direto no reports de acordo com os registros impressos. Além de colorir linhas pode-se alterar Fontes (Cor, Tamanho, Negrito, Sublinhado), etc.
Veja se aqui tem o que você precisa:
https://books.google.com.br/books?id=n6MzaJjbiWYC&pg=PA709&lpg=PA709&dq=drawstring+forecolor+c%23&source=bl&ots=tkI2F4LUFX&sig=GMtz6zAw881GoY2gg91IkmPt8pQ&hl=pt-BR&sa=X&ved=0ahUKEwjG65mw8pTKAhUBGh4KHZprB0oQ6AEIajAJ#v=onepage&q=drawstring%20forecolor%20c%23&f=false
https://books.google.com.br/books?id=n6MzaJjbiWYC&pg=PA709&lpg=PA709&dq=drawstring+forecolor+c%23&source=bl&ots=tkI2F4LUFX&sig=GMtz6zAw881GoY2gg91IkmPt8pQ&hl=pt-BR&sa=X&ved=0ahUKEwjG65mw8pTKAhUBGh4KHZprB0oQ6AEIajAJ#v=onepage&q=drawstring%20forecolor%20c%23&f=false
Por que vc não faz assim:
e.Graphics.DrawString(Format(saldo, [Ô]###,###,##0.00;###,###,##0.00-[Ô]), New Font([Ô]Arial[Ô], 8, FontStyle.Bold), [txt-color=#0000f0]iif(condição = [Ô]C[Ô], Brushes.Blue, Brushes.Red)[/txt-color], MargemEsquerda + 400, PosicaoDaLinha + 4, drawFormat)
Só uma dica...
Por que vc não trabalha com a escala em mm. No meu ponto de vista fica mais fácil posicionar o texto no formulário
Para usar escala em mm coloque essa linha antes do inÃcio da impressão
e.Graphics.PageUnit = GraphicsUnit.Millimeter
e.Graphics.DrawString(Format(saldo, [Ô]###,###,##0.00;###,###,##0.00-[Ô]), New Font([Ô]Arial[Ô], 8, FontStyle.Bold), [txt-color=#0000f0]iif(condição = [Ô]C[Ô], Brushes.Blue, Brushes.Red)[/txt-color], MargemEsquerda + 400, PosicaoDaLinha + 4, drawFormat)
Só uma dica...
Por que vc não trabalha com a escala em mm. No meu ponto de vista fica mais fácil posicionar o texto no formulário
Para usar escala em mm coloque essa linha antes do inÃcio da impressão
e.Graphics.PageUnit = GraphicsUnit.Millimeter
Galera agradeço pelo apoio!!!!!
As dicas foram de grande valor...
Utilizei iif como sugerido por PLUGSOFTSM e está funcionando perfeitamente. Também fiz a configuração para impressão em mm!!!
Muito obrigado novamente.
As dicas foram de grande valor...
Utilizei iif como sugerido por PLUGSOFTSM e está funcionando perfeitamente. Também fiz a configuração para impressão em mm!!!
Muito obrigado novamente.
Tópico encerrado , respostas não são mais permitidas