or
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load ExportToPDF("NoiseTestBlanks.trdx")End SubSub ExportToPDF(ByVal reportToExport As String) Dim reportProcessor As New Telerik.Reporting.Processing.ReportProcessor() Dim typeReportSource As New Telerik.Reporting.TypeReportSource() ' reportToExport is the Assembly Qualified Name of the report typeReportSource.TypeName = reportToExport Dim result As Telerik.Reporting.Processing.RenderingResult = reportProcessor.RenderReport("PDF", typeReportSource, Nothing) Response.Clear() Response.ContentType = result.MimeType Response.Cache.SetCacheability(HttpCacheability.Private) Response.Expires = -1 Response.Buffer = True 'Uncomment to handle the file as attachment 'Response.AddHeader("Content-Disposition", String.Format("{0};FileName=""{1}""", "attachment", reportToExport)) Response.BinaryWrite(result.DocumentBytes) Response.End()End Sub