Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Etiquette et gaspillage

3 réponses
Avatar
Gene
est-il possible de d=E9marrer une impression =E0 partir non=20
pas de la 1=E8re =E9tiquette d'une page, mais =E0 partir de la=20
x=E8me =E9tiquette (=E9tiquette de 3 lignes, 2=E8me colonne par=20
exemple )

3 réponses

Avatar
Pierre CFI [mvp]
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" a écrit dans le message de 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 )
Avatar
Mimi
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" a écrit dans le message de
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 )
Avatar
3stone
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
-----------------------------