Bonjour,
A partir de mon application VB6, je souhaiterais modifier la valeur d'un objet texte de mon rapport Crystal Reports et si possible changer aussi la police.

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 ou ce qu'il faut faire ?

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 = "Bonjour"
 rpt("Text1").Font.Name = "Arial"
 rpt.PrintOut
 
End Sub
Merci pour votre aide