Ir para conteúdo
Fórum Script Brasil
  • 0

Print Document


WesSouza

Pergunta

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...