Bonjour,
J'ai fait un Etat pour imprimer des etiquettes sur 3=20
colonnes et 6 lignes. Si la page d'etiquette n'est pas=20
totalement imprimer, pour eviter de perdre des etiquettes=20
je voudrais savoir si il est possible de modifier par VBA=20
les marges Haut, Bas, Droite et gauche que l'on d=E9fini=20
dans la mise en page.
L'op=E9rateur devrait donner le Numero de colonne et de=20
ligne et par Code je modifierai les marges pour tomber sur=20
la bonne etiquette.
Sinon je suis ouvert =E0 toute proposition.
D'avance merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Titi" J'ai fait un Etat pour imprimer des etiquettes sur 3 colonnes et 6 lignes. Si la page d'etiquette n'est pas totalement imprimer, pour eviter de perdre des etiquettes je voudrais savoir si il est possible de modifier par VBA les marges Haut, Bas, Droite et gauche que l'on défini dans la mise en page. L'opérateur devrait donner le Numero de colonne et de ligne et par Code je modifierai les marges pour tomber sur la bonne etiquette.
Ce ne sont pas les marges qu'il faut modifier... mais, plutôt imprimer des étiquettes... vides !!
Avec ceci :
' 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
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Titi"
J'ai fait un Etat pour imprimer des etiquettes sur 3
colonnes et 6 lignes. Si la page d'etiquette n'est pas
totalement imprimer, pour eviter de perdre des etiquettes
je voudrais savoir si il est possible de modifier par VBA
les marges Haut, Bas, Droite et gauche que l'on défini
dans la mise en page.
L'opérateur devrait donner le Numero de colonne et de
ligne et par Code je modifierai les marges pour tomber sur
la bonne etiquette.
Ce ne sont pas les marges qu'il faut modifier...
mais, plutôt imprimer des étiquettes... vides !!
Avec ceci :
' 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
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"Titi" J'ai fait un Etat pour imprimer des etiquettes sur 3 colonnes et 6 lignes. Si la page d'etiquette n'est pas totalement imprimer, pour eviter de perdre des etiquettes je voudrais savoir si il est possible de modifier par VBA les marges Haut, Bas, Droite et gauche que l'on défini dans la mise en page. L'opérateur devrait donner le Numero de colonne et de ligne et par Code je modifierai les marges pour tomber sur la bonne etiquette.
Ce ne sont pas les marges qu'il faut modifier... mais, plutôt imprimer des étiquettes... vides !!
Avec ceci :
' 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
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Titi
-----Message d'origine----- Salut,
"Titi" J'ai fait un Etat pour imprimer des etiquettes sur 3 colonnes et 6 lignes. Si la page d'etiquette n'est pas totalement imprimer, pour eviter de perdre des etiquettes je voudrais savoir si il est possible de modifier par VBA les marges Haut, Bas, Droite et gauche que l'on défini dans la mise en page. L'opérateur devrait donner le Numero de colonne et de ligne et par Code je modifierai les marges pour tomber sur la bonne etiquette.
Ce ne sont pas les marges qu'il faut modifier... mais, plutôt imprimer des étiquettes... vides !!
Avec ceci :
' 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
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.Merci pierre (3stone) pour cette reponse rapide et excelente.
-----Message d'origine-----
Salut,
"Titi"
J'ai fait un Etat pour imprimer des etiquettes sur 3
colonnes et 6 lignes. Si la page d'etiquette n'est pas
totalement imprimer, pour eviter de perdre des etiquettes
je voudrais savoir si il est possible de modifier par VBA
les marges Haut, Bas, Droite et gauche que l'on défini
dans la mise en page.
L'opérateur devrait donner le Numero de colonne et de
ligne et par Code je modifierai les marges pour tomber sur
la bonne etiquette.
Ce ne sont pas les marges qu'il faut modifier...
mais, plutôt imprimer des étiquettes... vides !!
Avec ceci :
' 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
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
.Merci pierre (3stone) pour cette reponse rapide et
excelente.
"Titi" J'ai fait un Etat pour imprimer des etiquettes sur 3 colonnes et 6 lignes. Si la page d'etiquette n'est pas totalement imprimer, pour eviter de perdre des etiquettes je voudrais savoir si il est possible de modifier par VBA les marges Haut, Bas, Droite et gauche que l'on défini dans la mise en page. L'opérateur devrait donner le Numero de colonne et de ligne et par Code je modifierai les marges pour tomber sur la bonne etiquette.
Ce ne sont pas les marges qu'il faut modifier... mais, plutôt imprimer des étiquettes... vides !!
Avec ceci :
' 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
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.Merci pierre (3stone) pour cette reponse rapide et excelente.
