none
Exporta PDF RRS feed

  • Pergunta

  • Olá com de finir os parametros dessa Programação.

    Public Class ReportUtils 

        Enum rptFormat 
            Excel 
            PDF 
            Image 
        End Enum 

       
    '''<summary> 
       
    ''' Exporta um LocalReport para um formato definido 
        '''
    </summary> 
       
    '''<param name="report">LocalReport</param> 
       
    '''<param name="output">Formato final</param> 
       
    '''<param name="filePath">Caminho + Nome do ficheiro</param> 
       
    '''<remarks></remarks> 
       
    Public Sub Export(ByVal report As LocalReport, ByVal output As rptFormat,ByVal filePath As String

            Dim warnings As Warning() = Nothing 
            Dim 
    streamids As String() = Nothing 
            Dim 
    mimeType As String Nothing 
            Dim 
    encoding As String Nothing 
            Dim 
    extension As String Nothing 

            Dim 
    bytes() As Byte = report.Render(output.ToString, Nothing, _ 
                                    mimeType, encoding, extension, streamids, warnings) 

            Using fs As New IO.FileStream(filePath, IO.FileMode.Create) 
                fs.Write(bytes, 0, bytes.Length) 
                fs.Close() 
            End Using 
            
    bytes = Nothing 

        End Sub 

     

     


    Dim rpt As New LocalReport 
    rpt.ReportPath = Application.StartupPath & "\..\..\rptProducts.rdlc" 

    ' --------------------------------------------------------- 

    AQUI !!!
      ' Definir DataSource, Parameters, etc, para o relatório 
    ' --------------------------------------------------------- 

    Dim fileName As String "d:\teste.pdf" 

    Dim clsReport As New ReportUtils 
    clsReport.Export(rpt, ReportUtils.rptFormat.PDF, fileName) 

    Process.Start(fileName)

    End Class



    Wesley Sozua
    terça-feira, 8 de novembro de 2011 14:42