ASP.NET

Public Shared Sub ExportGridToExcel(ByVal report As Control, ByVal exportType As Integer, ByVal ReportType As String)
            Select Case exportType
                Case Enums.ExportOptions.RTF
                    HttpContext.Current.Response.ContentType = "application/RTF"
                    HttpContext.Current.Response.AppendHeader("content-disposition", "inline;filename=GeneralReports.rtf")
               End Select
            Dim tw As New System.IO.StringWriter
            Dim hw As New System.Web.UI.HtmlTextWriter(tw)

            report.RenderControl(hw)
            HttpContext.Current.Response.Write(tw.ToString())
            HttpContext.Current.Response.End()
            HttpContext.Current.Response.Flush()
            tw.Close()
            hw.Close()
            tw.Dispose()
            hw.Dispose()
        End Sub