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 ?
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 = "Bonjour" rpt("Text1").Font.Name = "Arial" rpt.PrintOut End Sub
Partager