' 發展單位：水海科技系統研發驗證工作室
' 撰寫人：鄭子璉(Tzu-Lien, Cheng, 璉璉) ，成大水利博士候選人，微軟最有價值專家
' Web: http://tlcheng.adsldns.org/TLCheng/ E-Mail: qvb3377@ms5.hinet.net
' --------------------------------------------------------------------------------------

Private Const IDM_PRINT = 6
Private Const IDM_PRINTPREVIEW = 7

Private Const OLECMDEXECOPT_DODEFAULT        = 0
Private Const OLECMDEXECOPT_PROMPTUSER       = 1 
Private Const LECMDEXECOPT_DONTPROMPTUSER    = 2 
Private Const OLECMDEXECOPT_SHOWHELP         = 3 

Private Const PRINT_DONTBOTHERUSER = 6

Private Const strWebBrowserClassId = "8856F961-340A-11D0-A96B-00C04FD705A2"

Public Sub SetPrintPreview()
	WebBrowserCommand IDM_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER
End Sub

Public Sub SetPrintDocument()
	WebBrowserCommand IDM_PRINT, PRINT_DONTBOTHERUSER
End Sub

Private Sub WebBrowserCommand(Byval OleCmdId, Byval OleCmdExecopt)
	If Not IsObject("WebBrowserComm") Then
		WebBrowser = "<OBJECT ID='WebBrowserComm' WIDTH=0 HEIGHT=0 CLASSID='CLSID:" & strWebBrowserClassId & "'></OBJECT>"
		document.body.insertAdjacentHTML "beforeEnd", WebBrowser
	End If
	WebBrowserComm.ExecWB OleCmdId, OleCmdExecopt
	'WebBrowser1.removeNode True
	'WebBrowser1.outerHTML = ""
End Sub