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
