求高手 下列代码用vb怎么写

<script type="text/javascript" language="javascript">
function printPage() {
var newWin = window.open('printer','','');
var titleHTML = document.getElementById("printdiv").innerHTML;
newWin.document.write(titleHTML);
newWin.document.location.reload();
newWin.print();
 
newWin.close();
}
 
</script>
 
</head>
<body>
    <form id="form1" runat="server">
    <div id="printdiv">
        <br />
        <br />
        <br />
        <br />
    <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False">
        <Columns>
            <asp:BoundField DataField="User" HeaderText="方案创作人员" />
            <asp:BoundField DataField="Account" HeaderText="单体编号" />
            <asp:BoundField DataField="CreateDate" HeaderText="项目开始时间" />
            <asp:HyperLinkField DataNavigateUrlFields="InstanceId" DataNavigateUrlFormatString="Review.aspx?InstanceId={0}"
                HeaderText="操作" Text="察看" />
        </Columns>
    </asp:GridView>
    <br />
    <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/Default1.aspx">返回</asp:HyperLink>
    </div>
 <a href="javascript:;" onclick="printPage()">打印</a>
    </form>
</body>
<[[回头]]ml>