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 ?
Merci pour votre aide.
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
Partager