Print Document

[WesSouza]

Olá Estou com dificuldades em organizar os registros necessarios na página Print Document , Se alguém tiver algum Conteudo ou exemplo para ter um melhor controle das informaçoes .

Imagem:http://social.msdn.microsoft.com/Forums/getfile/67907

Como exibe na imagem as informações de porcentagem de acordo com o Codigo 33 está errado pois ultrapassa 100%.

Talves eu tenha que mudar a minha lógica porque pré defini 4 registro de cada item .. Bom O Código:

Private Sub PrintDocument7_PrintPage_BeginPrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument7.BeginPrint

array7 = base7.relatorio_Imovel_Cadastrados

End Sub

Private Sub PrintDocument7_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument7.PrintPage

Dim final As Integer = array7.Count - 0

Dim g As Graphics = e.Graphics

LAtual7 = 4

Dim i As Integer

While (i < LAtual7 And index7 < final)

modelagem7 = array7(index7)

' g.DrawString("Codigo:", FonteTextoBold, Brushes.Black, 80, 200 + i * 22)

g.DrawString(modelagem7.id, FonteTexto, Brushes.Black, 135, 203 + i * 22)

'g.DrawString("Incrição Prefeitura:", FonteTextoBold, Brushes.Black, 160, 200 + i * 22)

g.DrawString(modelagem7.inscrPrefeitura, FonteTexto, Brushes.Black, 290, 203 + i * 22)

'

'g.DrawString("Valor: R$", FonteTextoBold, Brushes.Black, 420, 200 + i * 22)

g.DrawString(modelagem7.valor, FonteTexto, Brushes.Black, 485, 203 + i * 22)

'g.DrawString("Cep:", FonteTextoBold, Brushes.Black, 600, 200 + i * 22)

g.DrawString(modelagem7.cep, FonteTexto, Brushes.Black, 635, 203 + i * 22)

'g.DrawString("Endereço:", FonteTextoBold, Brushes.Black, 80, 220 + i * 22)

g.DrawString(modelagem7.endereco, FonteTexto, Brushes.Black, 150, 223 + i * 22)

'g.DrawString("Matricula:", FonteTextoBold, Brushes.Black, 80, 240 + i * 22)

g.DrawString(modelagem7.matricula, FonteTexto, Brushes.Black, 150, 243 + i * 22)

'g.DrawString("Escritura:", FonteTextoBold, Brushes.Black, 80, 260 + i * 22)

g.DrawString(modelagem7.escritura, FonteTexto, Brushes.Black, 125, 263 + i * 22)

' g.DrawString("Situação:", FonteTextoBold, Brushes.Black, 80, 280 + i * 22)

g.DrawString(modelagem7.situacao, FonteTexto, Brushes.Black, 145, 283 + i * 22)

'

'g.DrawString("Cartorio:", FonteTextoBold, Brushes.Black, 80, 300 + i * 22)

g.DrawString(modelagem7.cartorio, FonteTexto, Brushes.Black, 130, 303 + i * 22)

'g.DrawString("Tipo:", FonteTextoBold, Brushes.Black, 250, 300 + i * 22)

g.DrawString(modelagem7.tipo, FonteTexto, Brushes.Black, 290, 303 + i * 22)

'g.DrawString("Porcentagem/Proprietário:", FonteTextoBold, Brushes.Black, 80, 320 + i * 22)

g.DrawString(modelagem7.porcentagem, FonteTexto, Brushes.Black, 80, 340 + i * 22)

g.DrawString(modelagem7.nomeparte, FonteTexto, Brushes.Black, 145, 340 + i * 22)

'g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.linha, 80, 385 + i * 200)

g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.rodape, 80, 5)

g.DrawImage(Global.Sistema_Juridico.My.Resources.Resources.baixo, 80, 1080)

i += 1

index7 += 1

If index7 < final Then

e.HasMorePages = True

Else

e.HasMorePages = False

End If

End While

End Sub

Agradeceria Qualquer tipo de Ajuda! Obrigado

Persistencia leva a Perfeição !