Bonjour,
Je souhaiterais modifier la valeur d'un objet texte de mon rapport Crystal Reports et si possible changer aussi la police.
Label1 est une étiquette sur ma Form.
Text1 est le nom de mon objet texte dans Rapport1.rpt
Ce n'est évidemment pas rpt("Text1").Text et rpt("Text1").Font.Name qu'il faut mettre.
Pourriez-vous m'indiquer ce qu'il faut mettre ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
 Dim x As String
 Dim appw As New CRAXDRT.Application
 Dim rpt As New CRAXDRT.report
 
 x = "C:\testVb6\Rapport1.rpt"
 
 Set rpt = appw.OpenReport(x)
 rpt("Text1").Text = Me.Label1.Caption
 rpt("Text1").Font.Name = Me.Label1.Font.Name
 rpt.PrintOut
 
End Sub
Merci pour votre aide.