i have the Following method to Print an Html frames and if i ran this method
through a loop i get the follwing error....
Sub PrintFrame(toFr ame, tnPrintOption)
Dim loWebBrowser
toFrame.focus
If Not IsNumeric(tnPri ntOption) OR tnPrintOption < 0 OR tnPrintOption > 3
OR tnPrintOption = "" Then
tnPrintOption = 0
End If
loWebBrowser = "<OBJECT ID='WebBrowser' WIDTH=0 HEIGHT=0
CLASSID='CLSID: 8856F961-340A-11D0-A96B-00C04FD705A2'></OBJECT>"
Document.body.i nsertAdjacentHT ML "beforeEnd" , loWebBrowser
WebBrowser.Sile nt = TRUE
WebBrowser.Exec WB 6, tnPrintOption
WebBrowser.oute rHTML=""
End Sub
The callee (server [not server application]) is not available and
disappeared; all connections are invalid. The call did not execute.
Note: Also Note that this will happen only if the tnPrintOption = 2, Which
means to Promt before Printing....
Any Idia to solve this...?
through a loop i get the follwing error....
Sub PrintFrame(toFr ame, tnPrintOption)
Dim loWebBrowser
toFrame.focus
If Not IsNumeric(tnPri ntOption) OR tnPrintOption < 0 OR tnPrintOption > 3
OR tnPrintOption = "" Then
tnPrintOption = 0
End If
loWebBrowser = "<OBJECT ID='WebBrowser' WIDTH=0 HEIGHT=0
CLASSID='CLSID: 8856F961-340A-11D0-A96B-00C04FD705A2'></OBJECT>"
Document.body.i nsertAdjacentHT ML "beforeEnd" , loWebBrowser
WebBrowser.Sile nt = TRUE
WebBrowser.Exec WB 6, tnPrintOption
WebBrowser.oute rHTML=""
End Sub
The callee (server [not server application]) is not available and
disappeared; all connections are invalid. The call did not execute.
Note: Also Note that this will happen only if the tnPrintOption = 2, Which
means to Promt before Printing....
Any Idia to solve this...?