Protected Sub PrintCurrentPage(ByVal sender As Object, ByVal e As EventArgs)
  GridView1.PagerSettings.Visible = False
  GridView1.DataBind()
  Dim sw As New StringWriter()
  Dim hw As New HtmlTextWriter(sw)
  GridView1.RenderControl(hw)
  Dim gridHTML As String = sw.ToString().Replace("""", "'") _
     .Replace(System.Environment.NewLine, "")
  Dim sb As New StringBuilder()
  sb.Append("<script type = 'text/javascript'>")
  sb.Append("window.onload = new function(){")
  sb.Append("var printWin = window.open('', '', 'left=0")
  sb.Append(",top=0,width=1000,height=600,status=0');")
  sb.Append("printWin.document.write(""")
  sb.Append(gridHTML)
  sb.Append(""");")
  sb.Append("printWin.document.close();")
  sb.Append("printWin.focus();")
  sb.Append("printWin.print();")
  sb.Append("printWin.close();};")
  sb.Append("</script>")
  ClientScript.RegisterStartupScript(Me.GetType(), "GridPrint", sb.ToString())
  GridView1.PagerSettings.Visible = True
  GridView1.DataBind()
End Sub