none
Printing gerando relatórios. RRS feed

  • Pergunta

  • Estou criando relatórios em VB.net utilizando o printing, mas quando eu gero o relatório ele está, simplesmente, pulando um registro na troca de pagina, já tentei concertar, mas não estou conseguindo. Alguém pode me ajudar:

     

    Segue o código usado:

                'Registros
                ii = 0
                ad = 5
                Dim ad2 As Integer = 0
                Dim linhaAtual As Integer = 1
    
                While (linhaAtual <= iLinhasPorPagina + 1 And rdr.Read)
                    While (ii < rdr.FieldCount)
                        Relatorio.Graphics.DrawString(rdr.GetValue(ii).ToString, fonteNormal, Brushes.Black, margemEsq + ad, 250 + ad2, New StringFormat())
                        ii = ii + 1
                        ad = ad + iEspacamentoEntreColunas
                    End While
                    ii = 0
                    ad = 5
                    ad2 = ad2 + iEspacamentoEntreLinhas
    
                    linhaAtual = linhaAtual + 1
                End While
    


    • Movido Heloisa Pires sexta-feira, 22 de junho de 2012 16:33 dúvida com relatórios (De:VB.NET e Visual Basic)
    sexta-feira, 3 de fevereiro de 2012 15:09

Todas as Respostas

  • Ficou faltando um pedaço do código, segua abaixo o código completo:

                'Registros
                ii = 0
                ad = 5
                Dim ad2 As Integer = 0
                Dim linhaAtual As Integer = 1
    
                While (linhaAtual <= iLinhasPorPagina + 1 And rdr.Read)
                    While (ii < rdr.FieldCount)
                        Relatorio.Graphics.DrawString(rdr.GetValue(ii).ToString, fonteNormal, Brushes.Black, margemEsq + ad, 250 + ad2, New StringFormat())
                        ii = ii + 1
                        ad = ad + iEspacamentoEntreColunas
                    End While
                    ii = 0
                    ad = 5
                    ad2 = ad2 + iEspacamentoEntreLinhas
    
                    linhaAtual = linhaAtual + 1
                End While
    
                'Há mais paginas?
                If (linhaAtual < iLinhasPorPagina) Then
                    Relatorio.HasMorePages = False
                Else
                    Relatorio.HasMorePages = True
                End If
                paginaAtual = paginaAtual + 1
    


    sexta-feira, 3 de fevereiro de 2012 15:48
  • Olá nickolasleal,

    Sua questão foi encaminhada para o fórum de Geração de Relatórios.

    Att,


    Heloisa Pires | LATAM Forum Support Engineer | Microsoft Corporation

    sexta-feira, 22 de junho de 2012 16:33