OVH Cloud OVH Cloud

Etiquettes multiples

4 réponses
Avatar
Jiveday
Bonjour
j'aimerais imprimer pour chaque enregistrement plusieurs étiquettes
d'affilée (exemple : 9 exemplaires de la première étiquette suivi des 9
exemplaires de la deuxième, etc.).
Existe-t-il un moyen ?
Merci d'avance

4 réponses

Avatar
3stone
Salut,

"Jiveday"
j'aimerais imprimer pour chaque enregistrement plusieurs étiquettes
d'affilée (exemple : 9 exemplaires de la première étiquette suivi des 9
exemplaires de la deuxième, etc.).
Existe-t-il un moyen ?



Soit, le nombre d'étiquettes souhaitée est un nombre saisi dans le champ
de la table, soit c'est une valeur "fixe"...


- Crée un table "Compteur" avec un seul champ numérique "xLabel".
Crée un trentaine d'enregistrements avec les valeurs de 1 à 30
(en fait, selon le nombre de duplicata possible)

- Crée ta requête avec tous les champs pour tes étiquettes
( y compris, s'il y a lieu, le champ qui mémorise le nombre d'étiquettes
souhaitées)

- Ajoute à cette requête la table "Compteur" SANS la lier et son champ
"xLabel"

Comme critère sous le champ "xLabel" tu mets:

< [TonChampNombreEtiquette]

ou, en cas de valeur fixe

< 9


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/

Avatar
Jiveday
Bonjour,
Un grand merci pour cette aide qui me sera utile pour un autre projet avec
une valeur variant à chaque enregistrement.
Je venais de résoudre mon problème actuel en adaptant une de tes précédentes
réponses du 17/11 à Sarah pour définir où débuter l'impression d'étiquettes.

Ci-dessous les modifications apportées qui fonctionnent parfaitement.

' Mettre dans la partie déclaration de l'état (au-dessus de la première sub)
Public NbreEtik, CombienEtik As Integer

' Propriété de la zone Détail - Événement "Sur impression"
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If NbreEtik < (CombienEtik - 1) Then
Me.NextRecord = False
NbreEtik = NbreEtik + 1
Else
NbreEtik = 0
End If
End Sub

' Propriété de l'état - Événement "Sur ouverture"
Private Sub Report_Open(Cancel As Integer)
Dim NombreEtiquettes As String

NombreEtiquettes = InputBox("Nombre d'étiquettes par enregistrement ? ",
"Attention")

If NombreEtiquettes = "" Then
Cancel = True
Else
CombienEtik = Val(NombreEtiquettes)
End If

End Sub



Salut,

"Jiveday"
j'aimerais imprimer pour chaque enregistrement plusieurs étiquettes
d'affilée (exemple : 9 exemplaires de la première étiquette suivi des 9
exemplaires de la deuxième, etc.).
Existe-t-il un moyen ?



Soit, le nombre d'étiquettes souhaitée est un nombre saisi dans le champ
de la table, soit c'est une valeur "fixe"...


- Crée un table "Compteur" avec un seul champ numérique "xLabel".
Crée un trentaine d'enregistrements avec les valeurs de 1 à 30
(en fait, selon le nombre de duplicata possible)

- Crée ta requête avec tous les champs pour tes étiquettes
( y compris, s'il y a lieu, le champ qui mémorise le nombre d'étiquettes
souhaitées)

- Ajoute à cette requête la table "Compteur" SANS la lier et son champ
"xLabel"

Comme critère sous le champ "xLabel" tu mets:

< [TonChampNombreEtiquette]

ou, en cas de valeur fixe

< 9


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/







Avatar
3stone
Salut,

"Jiveday"
[...]
|
| ' Mettre dans la partie déclaration de l'état (au-dessus de la première sub)
| Public NbreEtik, CombienEtik As Integer

Fait ta déclaration ainsi:

Public NbreEtik As Integer, CombienEtik As Integer

sinon NbreEtik est déclaré Variant au lieu de Integer.


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Jiveday
Bonjour et merci pour le conseil. J'étais (déjà) en train de prendre de
mauvaises habitudes en voulant économiser du code.


Salut,

"Jiveday"
[...]
|
| ' Mettre dans la partie déclaration de l'état (au-dessus de la première sub)
| Public NbreEtik, CombienEtik As Integer

Fait ta déclaration ainsi:

Public NbreEtik As Integer, CombienEtik As Integer

sinon NbreEtik est déclaré Variant au lieu de Integer.


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw