pneau
Messages postés258Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention27 octobre 20105 7 déc. 2007 à 14:41
Salut
Tu peux utiliser les composants Crystal en ajoutant des références à ton projet
ensuite tu crée un objet report auquel tu vas affecter les propriétés et données qui vont bien...
et tu lance l'impression ou l'apercu a partir de VB
Ex (nous on utilise CR 9) mais le principe est le meme
'Déclaration de l'objet report
Dim theapplication As CRAXDDRT.Application
Dim mrep As CRAXDDRT.Report
'Ouverture du report
sapplication = sapplication & "monrpt.rpt"
set mrep = theapplication.OpenReport(sapplication)
'affectation des paramètres
With mrep
.ParameterFields(1).AddCurrentValue param1
.ParameterFields(2).AddCurrentValue param2
...
end with
'affectation de la source de données (rs est un recordset construit auparavant)
mrep.Database.SetDataSource rs, , 1
'si tu as des sous reports tu utilise
mrep.OpenSubreport("sousreport.rpt").Database.SetDataSource rsBis
'lancement de l'impression (1 est le nb de copie)
mrep.PrintOut False, 1
voilà en gros la marche à suivre...
sur ce...
bon courage
Pat
Don't Worry , Be Happy
<hr />
lorsque le problème est résolu, pensez Réponse Acceptée