PRINT DOCUMENT

WESSOUZA1 29/02/2012 11:10:42
#396025

Olá Estou com dificuldades em organizar os registros necessarios na página Print Document , Se alguem 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