Figure 1
Figure 1
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 Response.Buffer = True
URLtoGo = Request.QueryString("redir")
stat = Response.isClientConnected
IF stat = False Then
'PWS Doesn't seem to like Abandon, So Timeout the Session in 1
'Minute
'Session.TimeOut = 1
Session.Abandon
' Flush the page so abandon can complete
Response.Flush
Response.End
End IF