Using the below code the report opens in the HTML view and when I
click on Export, I am able to export to PDF or Excel
But I need the PDF file to create and open up with out the HTML View
being generated.
Please let me know how to achieve this.
<%
Dim objectFactory
Set objectFactory = CreateObject("CrystalReports.ObjectFactory.2")
Response.ExpiresAbsolute = Now() - 1
Dim viewer
Set viewer =
objectFactory.CreateObject("CrystalReports.CrystalReportInteractiveViewer")
viewer.Name = "page"
viewer.IsOwnForm = true
viewer.IsOwnPage = true
Dim theReportName
theReportName = "D:\Arun\ASPEXP\CrystASSamples\CrystRASSample
\CrystRASSample_Local\Reports\rptClients.rpt"
Dim clientDoc
Set clientDoc =
objectFactory.CreateObject("CrystalClientDoc.ReportClientDocument")
clientDoc.Open theReportName
viewer.ReportSource = clientDoc.ReportSource
Dim BooleanSearchControl
Set BooleanSearchControl =
objectFactory.CreateObject("CrystalReports.BooleanSearchControl")
BooleanSearchControl.ReportDocument = clientDoc
viewer.BooleanSearchControl = BooleanSearchControl
viewer.ProcessHttpRequest Request, Response, Session
%>
Thank you
Arun