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 .
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)
Pergunta
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 !
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.