<pre lang="vb">Aqui sao lidos os dados<br />
While (LinhaAtual < LinhasPorPagina AndAlso Leitor.Read())<br />
<br />
obtem os valores do datareader<br />
codigo = Leitor.GetInt32(0)<br />
nome = Leitor.GetString(1)<br />
morada = Leitor.GetString(2)<br />
contacto = Leitor.GetInt32(3)<br />
nif = Leitor.GetInt32(4)<br />
email = Leitor.GetString(5)<br />
<br />
inicia a impressao<br />
PosicaoDaLinha = MargemSuperior + (LinhaAtual * FonteNormal.GetHeight(e.Graphics))<br />
<br />
e.Graphics.DrawString(codigo.ToString(), FonteSubTitulo, Brushes.Black, MargemEsquerda + 335, 100, New StringFormat())<br />
e.Graphics.DrawString(nome.ToString, FonteSubTitulo, Brushes.Black, MargemEsquerda + 70, 312, New StringFormat())<br />
e.Graphics.DrawString(morada.ToString, FonteSubTitulo, Brushes.Black, MargemEsquerda + 80, 362, New StringFormat())<br />
e.Graphics.DrawString(contacto.ToString, FonteSubTitulo, Brushes.Black, MargemEsquerda + 95, 462, New StringFormat())<br />
e.Graphics.DrawString(nif.ToString, FonteSubTitulo, Brushes.Black, MargemEsquerda + 50, 612, New StringFormat())<br />
e.Graphics.DrawString(email.ToString, FonteSubTitulo, Brushes.Black, MargemEsquerda + 70, 512, New StringFormat())<br />
LinhaAtual += 1<br />
End While</pre><br />