Vb6 et crystal report 10
mtlcyr
Messages postés
5
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
10 février 2005
-
14 janv. 2005 à 15:41
cs_jaridasaid Messages postés 5 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 6 août 2010 - 7 févr. 2006 à 12:42
cs_jaridasaid Messages postés 5 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 6 août 2010 - 7 févr. 2006 à 12:42
1 réponse
cs_jaridasaid
Messages postés
5
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
6 août 2010
7 févr. 2006 à 12:42
7 févr. 2006 à 12:42
1° Tu ajoutes dans tes références :
-Crystal ActiveX Reports Viewer Library 10.0
-Crystal Reports ActiveX Designer Run time Library 10.0
2° tu créer une form et tu y ajoute le controle CrystalActiveXReportViewer (nomme ce controle CRVReport)
3° Tu tappes le code suivant sur le On Load de ta form :
Private Sub Form_Load()
Dim rptReport As New CRAXDRT.Report
Dim rptRepApp As New CRAXDRT.Application
Dim rtpViews As CRAXDRT.DatabaseTable
ReportFileName = "c:\Monchemin\monfichier.rpt"
Set rptRepApp = New CRAXDRT.Application
Set rptReport = New CRAXDRT.Report
With CRVReport
Set rptReport = rptRepApp.OpenReport(ReportFileName, 1)
.ReportSource = rptReport
.ViewReport
End With
End Sub
-Crystal ActiveX Reports Viewer Library 10.0
-Crystal Reports ActiveX Designer Run time Library 10.0
2° tu créer une form et tu y ajoute le controle CrystalActiveXReportViewer (nomme ce controle CRVReport)
3° Tu tappes le code suivant sur le On Load de ta form :
Private Sub Form_Load()
Dim rptReport As New CRAXDRT.Report
Dim rptRepApp As New CRAXDRT.Application
Dim rtpViews As CRAXDRT.DatabaseTable
ReportFileName = "c:\Monchemin\monfichier.rpt"
Set rptRepApp = New CRAXDRT.Application
Set rptReport = New CRAXDRT.Report
With CRVReport
Set rptReport = rptRepApp.OpenReport(ReportFileName, 1)
.ReportSource = rptReport
.ViewReport
End With
End Sub
