Try this
--
Regards
John Timney
Microsoft Regional Director
Microsoft MVP
<html>
<head>
<script language="VB" runat="server">
'Sub Page_PreRender()
Sub Page_Load( sender as Object,e as EventArgs)
Dim scriptString as String = "<script language=JavaScript> function
DoClick() {"
ScriptString += "var truthBeTold = window.print;"
ScriptString += "if (truthBeTold != null)"
ScriptString += "window.print();"
ScriptString += "else window.alert('Unfortunately, your browser does
not support this shortcut. Please select File and then Print from your
browsers menu.');}<"
scriptString += "/"
scriptString += "script>"
If(Not IsClientScriptBlockRegistered("clientScript"))
RegisterClientScriptBlock("clientScript", scriptString)
End If
End Sub
</script>
</head>
<body topmargin="20" leftmargin="10">
<form id="myForm" runat="server">
<input type="button" value="ClickMe" onclick="DoClick()">
</form>
</body>
</html>