Hi All, This piece of code has

[NewStudent]

Hi All,

This piece of code has sent to me by RedGate.(Best Thanks To RedGate).
This Code Discard Saved Data From a Crystal Report.My question is : If I Want to use normal window of crystal report, instead of ViewReport window ,What can I do?
Best Regards,
NewStudent

--
Dim CrystalApplication As CRAXDRT.Application
Dim CrystalReport As CRAXDRT.Report
Dim CrystalTable As CRAXDRT.DatabaseTable
Dim CrystalReportPath As String
--
Private Sub Form_Load()

CrystalReportPath = "S:\CrystalReports\" + strENVRptNme

Set CrystalApplication = New CRAXDRT.Application
Set CrystalReport = CrystalApplication.OpenReport(CrystalReportPath)

CrystalReport.DiscardSavedData


Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = CrystalReport
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub
--

 

[techies]

Hi,

Are you talking about the Crystal designer window. Then you will need the CRDesignerCtrl(CRDesignerCtrl.dll) instead of the CRViewer.

Then you need to call

m_CRDesignerCtrl1.ReportObject = CrystalReport

Cheers.