m2rtech
Messages postés239Date d'inscriptionmercredi 9 octobre 2002StatutMembreDernière intervention20 février 2012 19 févr. 2004 à 00:41
voici un code qui marche pour une v8.5
Public rptApp As New CRAXDRT.Application
Public rpt As New CRAXDRT.Report
Set rpt = rptApp.OpenReport(chemin & "monreport.rpt", 1)
'on passe Numero_A_Imprimer en paramètre
'à l'item 1, c'est un champ de formule que tu auras cree
'dans crystal
rpt.FormulaFields.Item(1).Text = Numero_A_Imprimer
frmViewer1.Show
frmViewer1.CRViewer1.EnablePopupMenu = True
frmViewer1.CRViewer1.DisplayGroupTree = False
frmViewer1.CRViewer1.ReportSource = rpt
frmViewer1.CRViewer1.ViewReport