Really tough Crystal Question

[GaryB]

(I know this is not the Crystal Forum but I get far better answers here :)

I have a working ASPX page that uses a CrystalReportVi ewer to print any web
datagrid Passed to it. On the page I have a button
that will convert the report to a PDF. The code pasted below works just
fine.

My goal, however, it to bypass the Crystal report altogether and just
directly print the PDF. Apparently, however, the line that says:
CrystalReportVi ewer1.ReportSou rce = myReport is the one that both creates
and prints the crystal report and it is therefore necessary for the function
PrintToPDFWithS tream to work correctly.

Of course the report has to be created for my PDF function to work but is
there anyway to suppress the printing and trigger execution of
PrintToPDFWithS tream after the report is created?

Hope someone can help.
Thanks,
Gary

Private Sub Page_Load(ByVal .......
..
Dim myReport As New
CrystalDecision s.CrystalReport s.Engine.Report Document
myReport = Session("Report ToPrint")
Dim myDataSet As New DataSet
myDataSet.ReadX ml(Session("Rep ortFileString") )
myReport.SetDat aSource(myDataS et)
PrepareReport(m yReport.ReportD efinition.Secti ons) 'my function
CrystalReportVi ewer1.ReportSou rce = myReport
End Sub

Private Sub Button1_Click(B yVal sender .......
Dim reportToPrint As New
CrystalDecision s.CrystalReport s.Engine.Report Document
reportToPrint = Session("Report ToPrint")
PrintToPDFWithS tream(reportToP rint)
End Sub

Private Function PrintToPDFWithS tream(ByVal MyReport As
CrystalDecision s.CrystalReport s.Engine.Report Document)
Dim MyExportOptions As New CrystalDecision s.Shared.Export Options
MyExportOptions .ExportFormatTy pe =
CrystalDecision s.[Shared].ExportFormatTy pe.PortableDocF ormat
Dim MyExportRequest Context As New
CrystalDecision s.Shared.Export RequestContext
MyExportRequest Context.ExportI nfo = MyExportOptions
Dim MyStream As System.IO.Strea m
MyStream =
MyReport.Format Engine.ExportTo Stream(MyExport RequestContext)
Response.ClearH eaders()
Response.ClearC ontent()
Response.Conten tType = "applicatio n/pdf"
Dim myBuffer(MyStre am.Length) As Byte
MyStream.Read(m yBuffer, 0, CType(MyStream. Length, Integer))
Response.Binary Write(myBuffer)
Response.End()
End Function

[Steven Cheng[MSFT]]

Hi Gary,

It seems that you use the following code
Private Sub Page_Load(ByVal .......