May need this in the Page Directive: EnableEventValidation = "false"

 

 

 

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

        '**********************************************************

        '**********************************************************

        'Mandatory to have this empty sub to avoid runtime error

        '**********************************************************

        '**********************************************************

 

    End Sub

 

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdPrint.Click

 

        Response.Clear()

        Response.Buffer = True

        Response.ClearContent()

        Response.ClearHeaders()

        Response.Charset = ""

        Dim FileName As String = "MyExcelFile" + DateTime.Now + ".xls"

        Dim strWriter As New Stringwriter

        Dim HtmlTextWriter As HtmlTextWriter = New HtmlTextWriter(strWriter)

        Response.Cache.SetCacheability(HttpCacheability.NoCache)

        Response.ContentType = "application/vnd.ms-excel"

        Response.AddHeader("Content-Disposition", "attachment;filename=" + FileName)

        gvDetail.GridLines = GridLines.Both

        gvDetail.HeaderStyle.Font.Bold = True

        gvDetail.RenderControl(HtmlTextWriter)

        Response.Write(strWriter.ToString())

        Response.End()

 

    End Sub