Untitled

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
	<head>
		<title>Page Print Test</title>

		<script type="text/vbscript">

		Option Explicit

		Function PrintPage()

		    Const OLECMDID_PRINT = 6
		    Const OLECMDEXECOPT_DONTPROMPTUSER = 2

		    Dim printBrowser

		    Set printBrowser = document.getElementById("printBrowser")

			If printBrowser Is Nothing Then
				Const printBrowserElement = "<object id=""printBrowser"" width=""0"" height=""0"" classid=""CLSID:8856F961-340A-11D0-A96B-00C04FD705A2""></object>"

				document.body.insertAdjacentHTML "beforeEnd", printBrowserElement

				Set printBrowser = window.printBrowser
			End If

		    printBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 1

		End Function

		</script>
	</head>
	<body>

		<a href="vbscript:PrintPage()">Print Page</a>

	</body>
</html>