More Crystal joys

[Anakim]

Prompted by an earlier thread I've been chucking Crystal around a bit but have a wee problemette.

I've 5 old reports used by two different apps. In App a I've added the Crystal RDC and a blank report. At runtime user can select his/her report and I can pick up the report by using ReportFileName. The booger is I can't use the crystal viewer to show the report I have to view it by setting Action = 2. If I set the viewer's report source to the, now, not blank one I get an automation error.

Any help...I think I'm gonna grow to love Crystal you know! I think it may finish my love affair TrueDB grid (now that's a gorgeous component to work with!)

using crystal 8, i put the crviewer control on
a blank form and use this code to view the report:


Option Explicit
Dim crxApplication As New Application
Public Report As Report

Private Sub Form_Load()
Set Report = crxApplication.OpenReport(ReportPath & "MyReport.rpt")

With CRViewer1
.ReportSource = Report
.ViewReport
.Zoom 100
End With
End Sub

[Anakim]

Cheers, saved a lot of ballache!