' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   
'  This script is written and developed by SP Internet Consultancy 
'   
'  *** Authorship *** 
'   
'  SP Internet Consultancy asserts their authority over this script. It  
'  remains their intellectual property, and may not be marketed otherwise. 
'   
'  *** Ownership *** 
'   
'  SP Internet Consultancy retains the ownership of this script and its  
'  source code. The owner of the web site this script is running on is  
'  granted a non-exclusive licence to use this script on their web site.  
'  SP Internet Consultancy has the right to resell or redevelop this script. 
'   
'  *** Reuse *** 
'   
'  The owner of the web site may not resell or redevelop this script without  
'  prior consent of SP Internet Consultancy. 
'   
'  *** Workability *** 
'   
'  SP Internet Consultancy makes every effort to ensure that their scripts  
'  function correctly. In the event of this, or any other script provided by  
'  SP Internet Consultancy, being modified by another party SP Internet  
'  Consultancy have no obligation to fix any repairs caused by such modification. 
'   
'  *** Disclaimer *** 
'   
'  SP are not liable for the information provided by this, or any script,  
'  written or provided by SP Internet Consultancy. SP makes no claims to the  
'  suitability or usability of the information. 
'   
'  *** Contact: *** 
'   
'  SP Internet Consultancy can be contacted at: 
'   
'  mephist@netscape.net  
'  kas@easynet.co.uk 
'   
' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub vbs_Print_Page

	OLECMDID_PRINT = 6
	OLECMDEXECOPT_DONTPROMPTUSER = 2
	OLECMDEXECOPT_PROMPTUSER = 1
	On Error Resume Next
	WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

End Sub