Print Current Page and Print All Pages of GridView

Protected Sub PrintAllPages(ByVal sender As Object, ByVal e As EventArgs)
GridView1.AllowPaging = 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("< type =" 'text/javascript'">")
sb.Append("window.onload = new function(){")
sb.Append("var printWin = window.open('', '', 'left=0")
sb.Append(",top=0,width=1000,height=1000,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.AllowPaging = True
GridView1.DataBind()
End Sub


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("< 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