I am using the crystal viwer to display two reports. How do I check to see if the viewer is closed prior to loading the second report?
Command1_Click()
sReport = "x.rpt"
Set Report = crxApplication.OpenReport(sReport, 1)
clsRE.ReportView Report
Set Report = Nothing
sReport = "y.rpt"
Set Report = crxApplication.OpenReport(sReport, 1)
clsRE.ReportView Report
Set Report = Nothing
Public Sub ReportView(ReportIn As CRAXDRT.Report)
Set Report = ReportIn
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Visible = True
SetFocus
End Sub
Second report steps on first ones toes!
Command1_Click()
sReport = "x.rpt"
Set Report = crxApplication.OpenReport(sReport, 1)
clsRE.ReportView Report
Set Report = Nothing
sReport = "y.rpt"
Set Report = crxApplication.OpenReport(sReport, 1)
clsRE.ReportView Report
Set Report = Nothing
Public Sub ReportView(ReportIn As CRAXDRT.Report)
Set Report = ReportIn
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Visible = True
SetFocus
End Sub
Second report steps on first ones toes!