'Exportando os dados do relatório para PDF
Dim warn() As Warning = Nothing
Dim streamids() As String = Nothing
Dim mimeType As String = "application/pdf"
Dim encoding As String = String.Empty
Dim extension As String = String.Empty
Dim byteViewer() As Byte
byteViewer = rView.LocalReport.Render("pdf", Nothing, mimeType, encoding, extension, streamids, warn)
' Criando arquivo PDF no disco
Dim pdfPath As String = String.Empty
pdfPath = AppDomain.CurrentDomain.BaseDirectory & "Relatorios/Rel.PDF"
Dim pdfFile As New System.IO.FileStream(pdfPath, System.IO.FileMode.Create)
pdfFile.Write(byteViewer, 0, byteViewer.Length)
pdfFile.Close()
'
Response.Buffer = True
Response.Clear()
Response.ContentType = "application/pdf"
Response.AddHeader("content-disposition", "inline; filename=ReportName.pdf")
Response.BinaryWrite(byteViewer)
Response.Flush()
Response.End()
“Caso esta resposta tenha ajudado a solucionar sua dúvida, favor clicar em “Marcar como Resposta” para beneficiar outros membros da comunidade que estejam lendo este thread”.
