PRINTDOCUMENT ALINHAR VALORES NEGATIVOS
Bom dia pessoal, preciso de uma forçinha a respeito do Printdocument com valores negativos
Na hora de gerar um relatorio os valores negativos o sinal de negativo sai assim 1.536,36- (Atras do numero), deveria sair assim -1.536,36, tentei procurar na net alguma coisa que ajustasse isso e nada, se alguem souber da uma dica ai.....
Parte do meu codigo que estou usando pra voces saberem como estou montando
Coluna0 = leitor.GetString(0)
Coluna1 = Format(leitor.GetValue(1), [Ô]N2[Ô])
Coluna2 = Format(leitor.GetValue(2), [Ô]N2[Ô])
Coluna3 = Format(leitor.GetValue(3), [Ô]N2[Ô])
Coluna4 = Format(leitor.GetValue(4), [Ô]N2[Ô])
Dim drawFormat As New StringFormat
drawFormat.FormatFlags = StringFormatFlags.DirectionRightToLeft
PosicaoDaLinha = MargemSuperior + (LinhaAtual * FonteNormal.GetHeight(e.Graphics))
e.Graphics.DrawString(Coluna0.ToString, FonteNormal, Brushes.Black, MargemEsquerda - 25, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(Coluna1.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 220, PosicaoDaLinha, drawFormat)
e.Graphics.DrawString(Coluna2.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 320, PosicaoDaLinha, drawFormat)
e.Graphics.DrawString(Coluna3.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 415, PosicaoDaLinha, drawFormat)
Na hora de gerar um relatorio os valores negativos o sinal de negativo sai assim 1.536,36- (Atras do numero), deveria sair assim -1.536,36, tentei procurar na net alguma coisa que ajustasse isso e nada, se alguem souber da uma dica ai.....
Parte do meu codigo que estou usando pra voces saberem como estou montando
Coluna0 = leitor.GetString(0)
Coluna1 = Format(leitor.GetValue(1), [Ô]N2[Ô])
Coluna2 = Format(leitor.GetValue(2), [Ô]N2[Ô])
Coluna3 = Format(leitor.GetValue(3), [Ô]N2[Ô])
Coluna4 = Format(leitor.GetValue(4), [Ô]N2[Ô])
Dim drawFormat As New StringFormat
drawFormat.FormatFlags = StringFormatFlags.DirectionRightToLeft
PosicaoDaLinha = MargemSuperior + (LinhaAtual * FonteNormal.GetHeight(e.Graphics))
e.Graphics.DrawString(Coluna0.ToString, FonteNormal, Brushes.Black, MargemEsquerda - 25, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(Coluna1.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 220, PosicaoDaLinha, drawFormat)
e.Graphics.DrawString(Coluna2.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 320, PosicaoDaLinha, drawFormat)
e.Graphics.DrawString(Coluna3.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 415, PosicaoDaLinha, drawFormat)
Consegui resolver minha duvida as 45 minutos do segundo tempo
usei seguinte comando:
drawFormat.Alignment = StringAlignment.Far
usei seguinte comando:
drawFormat.Alignment = StringAlignment.Far
Remova essa parte do código.
E essa parte deixa desse jeito abaixo.
Dim drawFormat As New StringFormat
drawFormat.FormatFlags = StringFormatFlags.DirectionRightToLeft
E essa parte deixa desse jeito abaixo.
e.Graphics.DrawString(Coluna1.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 220, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(Coluna2.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 320, PosicaoDaLinha, New StringFormat())
e.Graphics.DrawString(Coluna3.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 415, PosicaoDaLinha, New StringFormat())
Tópico encerrado , respostas não são mais permitidas