Automatically printing CryRep 8 using CRViewer over Web

lax27 · May 23, 2001

I am trying to print reports over the Web (client side) using the CRViewer control. I can view the report using the standard code:

Sub window_onLoad()
Page_Initialize()
End Sub

Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker&quot

if err.number <> 0 then
window.alert "The Seagate Software ActiveX Viewer is unable to create it's resource objects. To rectify this problem, please install Internet Explorer 4.0 or install DCOM for Windows 95 and the latest Microsoft Scripting Engine. These files are available at Microsoft's web site."
CRViewer.ReportName = "

http://nitcam.nitservices.com:80/Reports/Billing/UB923.rpt"

else
Dim webSource0
Set webSource0 = CreateObject("WebReportSource.WebReportSource&quot

webSource0.ReportSource = webBroker
'Make Certain that the
webSource0.URL = "

http://nitcam.nitservices.com:80/Reports/Billing/UB923.rpt"

webSource0.PromptOnRefresh = True
CRViewer.ReportSource = webSource0
end if
CRViewer.ViewReport
End Sub

But I can't just print it using "CRViewer.PrintReport" in place of "CRViewer.ViewReport". Using "CRViewer.PrintReport" brings up the Report same as "CRViewer.ViewReport" does.

Ideally I don't even want the viewer to display anything I just want the reports to start print as soon as the previous page makes it's Request.

Chris Schaller
NIT, Inc

Guest_imported · Jul 11, 2001

Even I am trying the same as above..
trying to print without previewing the CRViewer...
.printreport method is not printing directly.
what is the solution for this.

Vijay

Guest_imported · Jul 13, 2001

Hello chris
I found the solution for this
use websource0.printout instead of
CRViewer.print report.

i hope this helps

Vijay

Guest_imported · Aug 14, 2001

well, using hte CRViewer exactly in a similar mannner as u guys have been using it, when my report page shows up ther is absolutely NOTHING on it.

Can anyone please tell me what i am doing wrong ???

Thanks,

lax27 · Aug 14, 2001

Justmeccv, If you use the code from the very first post with "CRViewer.ViewReport" as the very last line you should see something.

I have not been able to get my reports to print without clicking the printer icon on the CR viewer. Using the websource0.printout method did not work for me. I tried every variation that I could think of and nothing.

Some variations of using websource0.printout produced the CRViewer just as it had been diplayed before and some produce a blank report page. Either way I still can't get the reports to print only without having the report page displayed.

bhais · Aug 14, 2001

http://support.crystaldecisions.com/communityCS/FilesAndUpdates/aspxmps8.exe.asp

There you will find a set of 25 sample applications one of which is printing without previewing.

d0rthy · Jan 21, 2002

i don't see how websource.printout will work. i have never got it to work.

Can anyone help as the printout method would be helpful. i want to use this method client side and have not figured out how to do so, so far.

vdpras · Mar 31, 2002

Iam also facing the same problem of printing crystal reports from ASP without viewing.I tried with the code in this location also

http://support.crystaldecisions.com/communityCS/FilesAndUpdates/aspxmps8.exe.asp.

It didn't work out.
Any help provided will be thankful

Thanks
Prasanna

hslee · Apr 2, 2002

I am meet the same problem with justmeccv, I use the sample program about

http://support.crystaldecisions.com/communityCS/FilesAndUpdates/aspxmps8.exe.asp,

I have seen smartviewer display on browser, but why my report content can't seen anymore. Could you tell me what can I do for solve this problem.

Guest_imported · May 8, 2002

Try this code.

it works for me

<html>
<head>
<TITLE>Reports</TITLE>
</head>
<BODY BGCOLOR=C6C6C6 LANGUAGE=VBScript topmargin=0 leftmargin=0>
<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=0% HEIGHT=0%

CODEBASE="../../OBJECTS/activexviewer.cab#Version=8,5,0,217">
<PARAM NAME="EnableRefreshButton" VALUE=0>
<PARAM NAME="EnableGroupTree" VALUE=0>
<PARAM NAME="DisplayGroupTree" VALUE=0>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=0>
<PARAM NAME="EnableDrillDown" VALUE=0>
<PARAM NAME="EnableSearchControl" VALUE=0>
<PARAM NAME="EnableAnimationControl" VALUE=0>
<PARAM NAME="EnableZoomControl" VALUE=0>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
<!--
dim timer
dim printerTimer
dim pageOne
PageOne = True

Sub window_onLoad()
Page_Initialize()
End Sub

Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker&quot

if err.number <> 0 then
window.alert "The Crystal ActiveX Viewer is unable to create it's resource objects."
CRViewer.ReportName = "/Reports/705.rpt"
else
Dim webSource0
Set webSource0 = CreateObject("WebReportSource.WebReportSource&quot

webSource0.ReportSource = webBroker
webSource0.URL = "/Reports/705.rpt"
webSource0.PromptOnRefresh = True
webSource0.AddParameter "password0", "pass"
webSource0.AddParameter "user0", "user"
webSource0.AddParameter "Prompt0", "80"
webSource0.AddParameter "Prompt1", "200203"
CRViewer.ReportSource = webSource0

end if

CRViewer.ViewReport
End Sub

Sub CRViewer_DownloadFinished(downloadType)
if downloadType = 1 and pageOne then
PageOne = False
timer = window.setTimeout("OnMyTimeOut",1000)
end if
end sub

Sub OnMyTimeOut()
if not CRViewer.IsBusy then
window.clearTimeout(timer)
'window.alert "My timeout"
CRViewer.PrintReport
printerTimer = window.setTimeout("OnPrinterTimeOut", 1000)
end if
end sub

Sub OnPrinterTimeOut()
if not CRViewer.IsBusy then
window.clearTimeout(printerTimer)
window.history.back
end if
end sub

-->
</SCRIPT>
</body>
</html>

Guest_imported · May 20, 2002

Hi jokecy

i tried your code and a blank page comes up..

have you included any setting or special pages on you web project?

thanks

speedny

RShah · Jul 5, 2002

Hi jokecy
Thats cool its really works..
Thanks a lot
Rakesh

RamaKommineni · Sep 12, 2003

Hi i am using code provided by jokecy. When loaded a page it was showing an error messge "object does not support this property or method and didn't invoke printer for printing report displayed.

I am using IE 6.0. What is that method/Property which can't be supported by IE6.0 from code by jokecy?

Appriciate help on this.

Thanks,
Rama Kommineni

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Automatically printing CryRep 8 using CRViewer over Web

lax27

Programmer

Guest_imported

New member

Guest_imported

New member

Guest_imported

New member

lax27

Programmer

bhais

Programmer

d0rthy

Programmer

vdpras

Programmer

hslee

Programmer

Guest_imported

New member

Guest_imported

New member

RShah

Programmer

RamaKommineni

Programmer

Similar threads

Part and Inventory Search

Sponsor