PRINTDOCUMENT EM DUAS COLUNAS

 Tópico anterior Próximo tópico Novo tópico

PRINTDOCUMENT EM DUAS COLUNAS

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#479365 - 29/01/2018 15:32:50

NILTON_VIANNA
AMPARO - SP
Cadast. em:Fevereiro/2009


PrintDocument em duas Colunas
Boa tarde
Não consigo imprimir etiquetas em duas colunas, porem conforme código abaixo.
Esta saindo duas colunas iguais, alguém poderia me ajudar.

Grato

While (LinhaAtual < LinhasPorPagina AndAlso Leitor.Read())

                Nome = Leitor.GetString(0)
                Ende = Leitor.GetString(3)
                Cida = Leitor.GetString(4)

                'inicia a impressao com os dados
                PosicaoDaLinha = MargemSuperior + (LinhaAtual * FonteNormal.GetHeight(e.Graphics))
                LinhaAtual += 6

                '1° Coluna
                e.Graphics.DrawString(Nome.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 10, PosicaoDaLinha, New StringFormat())
                e.Graphics.DrawString(Ende.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 10, PosicaoDaLinha + 18, New StringFormat())
                e.Graphics.DrawString(Cida.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 10, PosicaoDaLinha + 36, New StringFormat())

                '2° Coluna
                e.Graphics.DrawString(Nome.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 438, PosicaoDaLinha, New StringFormat())
                e.Graphics.DrawString(Ende.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 438, PosicaoDaLinha + 18, New StringFormat())
                e.Graphics.DrawString(Cida.ToString, FonteNormal, Brushes.Black, MargemEsquerda + 438, PosicaoDaLinha + 36, New StringFormat())

                LinhaAtual += 1

            End While



#479366 - 29/01/2018 15:46:15

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Está indo os mesmos dados para as duas colunas....

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#479367 - 29/01/2018 15:49:25

NILTON_VIANNA
AMPARO - SP
Cadast. em:Fevereiro/2009


Sim mais tem como alterar a segunda coluna para obter o próximo nome da tabela
Grato




#479368 - 29/01/2018 15:57:03

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Como é um DataReader, basta executar o método Read antes de pegar os dados da segunda coluna...
Mas da maneira como está fazendo, conforme os relatórios ficam mais complexos, vai ficando cada vez mais estranho.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#479541 - 09/02/2018 14:18:33

NILTON_VIANNA
AMPARO - SP
Cadast. em:Fevereiro/2009


Resolvido obrigado a todos
Muito simples de mais apenas um detalhe.
Grato




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por NILTON_VIANNA em 09/02/2018 14:24:14