Discussion :

[kh.lakehal]

Bonjour,

Je travail sur un fichier Access pour permettre la création automatique d'étiquette, et j'ai la question suivante :

Est-il possible d'adapter le contenu du texte dans l'étiquette de la sorte que si cela dépasse la taille de l'étiquette; il reportera sur l'étiquette suivante ...

D'avance merci de votre aide

[james68]

Bonjour,
le mieux est de compter le nombre de caractère de l’étiquette à imprimer et de réduire la police de caractère après un certain nombre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.NbreCarac > 20 Then ' nbre de caractere de LIBELLE
Me.LIBELLE.FontSize = 6
End If
End Sub

Cdlt

[kh.lakehal]

Bonjour,
le mieux est de compter le nombre de caractère de l’étiquette à imprimer et de réduire la police de caractère après un certain nombre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.NbreCarac > 20 Then ' nbre de caractere de LIBELLE
Me.LIBELLE.FontSize = 6
End If
End Sub

Cdlt

Merci de ton aide ....