Bonjour
J'ai besoin d'imprimer les références d'une Base
Dans le détail de l'état je veux remplir un champ texte (RéférenceTxt) avec le code suivant
Le code fonctionne mais je n'ai qu'une seule ligne (la 1ère de la liste des références) alors que testé avec un debug.print j'ai bien tout
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) Dim Ref As Reference For Each Ref In Application.References RéférenceTxt = Ref.Name & " - Version : " & Ref.Major & "." & Ref.Minor & " - Chemin : " & Ref.FullPath Next Ref End Sub
Merci pour vos conseils
Partager