Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

detona_2005

VB.Net

Recommended Posts

Quando estou varrendo os registros conforme código abaixo, como faço para que cada registro apareça em uma página?Ou seja, se tiverem 3 registro na tabela, preciso imprimir 3 páginas!'selecionando o usuario que receberá a mensagemcmd.CommandText = " SELECT " & _" TB_CADASTRO_NOME " & _" FROM TB_CADASTRO "conn.Open()Dim usuario As OleDbDataReader = cmd.ExecuteReader()While usuario.Read()nome_usuario = usuario.Item(0)Relatorio.Graphics.DrawImage(Image.FromFile("C:\projetos\VB_NET\AcessoAccessProjeto1\logo\" & "logo.gif"), 100, 80)Relatorio.Graphics.DrawString(nome_usuario, fonteTitulo, Brushes.Black, margemEsq + 200, 120, New StringFormat)Relatorio.Graphics.DrawString(texto_mensagem, fonteNormal, Brushes.Black, margemEsq + 200, 200, New StringFormat)Relatorio.Graphics.DrawString(System.DateTime.Now, fonteRodape, Brushes.Black, margemEsq, margemInf, New StringFormat)End Whileusuario.Close()conn.Close()Abraços,detona

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.