Figure 1

  • Article

Figure 1 Printing with ExecWB 

<html>
<head>
<script language="VBScript">
SUB Print()
OLECMDID_PRINT = 6
OLECMDEXECOPT_DONTPROMPTUSER = 2
OLECMDEXECOPT_PROMPTUSER = 1
'Bring focus to the document so that it will be what prints:
document.body.focus()
'Call the "Print" command. Since the Internet Explorer/DOM didn't add
'the "print()" method until 5.0
on error resume next
call IEWB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER)
if err.number <> 0 then
alert "Nothing Printed"
end if
END SUB
</script>
</head>
<body>
<object id="IEWB" width=0 height=0 classid="clsid:8856F961-340A-11D0-
A96B-00C04FD705A2"></object>
•••
Figure 2 isClientConnected FakePre-46d5670f10ee46e3b0889b230dd98018-1c7bd789f043417fb03e8ea60cf6e370