Jump to content
Fórum Script Brasil
  • 0

Print Document


WesSouza

Question

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 to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...