or
Dim instanceReportSource As New Telerik.Reporting.InstanceReportSource()instanceReportSource.ReportDocument = New Reporting_Service.doc_PO_ShippingInstructionsinstanceReportSource.Parameters.Add(New Telerik.Reporting.Parameter("Id", 31))instanceReportSource.Parameters.Add(New Telerik.Reporting.Parameter("LanguageID", 1))Dim reportProcessor As New ReportProcessor()Dim result As RenderingResult = reportProcessor.RenderReport("PDF", instanceReportSource, Nothing)Dim fileName As String = result.DocumentName + ".pdf"Response.Clear()Response.ContentType = result.MimeTypeResponse.Cache.SetCacheability(HttpCacheability.Private)Response.Expires = -1Response.Buffer = TrueResponse.AddHeader("Content-Disposition", String.Format("{0};FileName=""{1}""", "attachment", fileName))Response.BinaryWrite(result.DocumentBytes)Response.End()