Visual basic 6 CR2008

Bonjour! Je l'ai déjà fait avec CRXI en utilisant le composant CrystalActiveXReportViewer. Dans mon exemple, frmDisplayCrystal est la forme et CRDisplay le controle sur la forme.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Application As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
 
Set Report = Application.OpenReport(ReportFileName)
 
'---------------------------------------------------------------
' ICI tu mets tout ce qu’il faut pour définir le rapport
'---------------------------------------------------------------
'copie le rapport sur la forme
frmDisplayCrystal.CRDisplay.ReportSource = Report
frmDisplayCrystal.CRDisplay.ViewReport
frmDisplayCrystal.Show vbModal
 
Set Report = Nothing
Set Application = Nothing

J'espère que cela t'aidera...