Information générale
Catégorie:
Gestionnaire de rapports & Rapports
Steve, I use the following method. I tested it on CR 8.5 and VFP 7.0
With Thisform
.oCrystalReports = Createobject("CrystalRuntime.Application")
.oReport = Createobject ("CrystalRuntime.Report")
.oReport = .oCrystalReports.OpenReport("my_report.rpt")
.oReport.ParameterFields(1).SetCurrentValue(my_parameter1)
.oReport.ParameterFields(2).SetCurrentValue(my_parameter2)
.AddObject("oleCRViewer", "oleControl", "crViewer.crViewer")
With .oleCRViewer
* Set report viewer properties
.Top = 1
.Left = 1
.Height = Thisform.Height - 2
.Width = Thisform.Width - 2
.ReportSource = Thisform.oReport
.ViewReport()
Endwith
Endwith
Martin
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement