ما الحل المناسب ؟
Dim Rpt As CRAXDDRT.Application
Dim Crystal As CRAXDDRT.Report
Set Rpt = New CRAXDDRT.Application
With CrystalReport1
Set Crystal = Rpt.OpenReport(App.Path & "\print1.rpt", 1)
.ReportFileName = App.Path & "\print1.rpt"
Crystal.Database.SetDataSource Rsprint, 3, 1
.Action = 1
End With