Etiquette et gaspillage

Le
Gene
est-il possible de dmarrer une impression partir non
pas de la 1re tiquette d'une page, mais partir de la
xme tiquette (tiquette de 3 lignes, 2me colonne par
exemple )
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pierre CFI [mvp]
Le #5369211
bonjour
le mieux est de filtrer la req souce, tu auras exactement les etiquettes qu'il te faut

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Gene" est-il possible de démarrer une impression à partir non
pas de la 1ère étiquette d'une page, mais à partir de la
xème étiquette (étiquette de 3 lignes, 2ème colonne par
exemple )
Mimi
Le #5369161
Bonjour,

Peut-être faire l'édition des étiquettes à partir d'une table tampon et
avant l'édition rajouter autant d'enregistrements vide dans la table qu'il
doit y avoir d'étiquettes vides.

Mimi

"Gene" news:ac3401c43692$07bb0a40$
est-il possible de démarrer une impression à partir non
pas de la 1ère étiquette d'une page, mais à partir de la
xème étiquette (étiquette de 3 lignes, 2ème colonne par
exemple )
3stone
Le #5369081
Bonjour *aussi*

"Gene"
est-il possible de démarrer une impression à partir non
pas de la 1ère étiquette d'une page, mais à partir de la
xème étiquette (étiquette de 3 lignes, 2ème colonne par
exemple )



De cette facon:

' Mettre dans la partie déclaration de l'état
Public intToSkip As Integer
Public intSkipped 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 intSkipped < intToSkip Then
Me.NextRecord = False
Me.PrintSection = False
intSkipped = intSkipped + 1
End If
End Sub


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

intLabel = inputbox("Combien d'étiquettes vides ? : ", "Attention")

If IsNull(intLabel) Then
Cancel = True
Else
intToSkip = Val(intLabel)
End If
End Sub



De rien !!


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Publicité
Poster une réponse
Anonyme