Je continue la construction de ma base de données et aujourd'hui se pose un
nouveau problème.
J'ai créé un état pour imprimer des étiquettes et jusque là tout marche pour
le mieux.
Sur une planche je peux imprimer 18 étiquettes. Ma question est la suivante
: existe-t-il un moyen pour définir l'étiquette où doit débuter l'impression
???
En effet, je ne dois pas imprimer 18 étiquettes à chaque fois, ce qui
implique que mes planches d'étiquettes ne sont pas utilisées entièrement.
Alors je voudrais savoir si je peux imprimer 10 étiquettes et à l'impression
suivante, paramétrer quelque chose pour que l'impression commence à la 11ème
étiquette...
Je demande à tout hasard mais je ne rêve pas !!!
Merci d'avance pour votre réponse (même négative, au moins je serai fixée !)
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,
"sarah" [...]
Sur une planche je peux imprimer 18 étiquettes. Ma question est la suivante : existe-t-il un moyen pour définir l'étiquette où doit débuter l'impression ???
Oui, de cette facon:
' Mettre dans la partie déclaration de l'état (au dessus de la première sub) 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 intLabel = "" Then Cancel = True Else intToSkip = Val(intLabel) End If End Sub
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Salut,
"sarah"
[...]
Sur une planche je peux imprimer 18 étiquettes. Ma question est la suivante
: existe-t-il un moyen pour définir l'étiquette où doit débuter l'impression ???
Oui, de cette facon:
' Mettre dans la partie déclaration de l'état (au dessus de la première sub)
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 intLabel = "" Then
Cancel = True
Else
intToSkip = Val(intLabel)
End If
End Sub
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
Sur une planche je peux imprimer 18 étiquettes. Ma question est la suivante : existe-t-il un moyen pour définir l'étiquette où doit débuter l'impression ???
Oui, de cette facon:
' Mettre dans la partie déclaration de l'état (au dessus de la première sub) 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 intLabel = "" Then Cancel = True Else intToSkip = Val(intLabel) End If End Sub
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
sarah
J'ai essayé, mais ça ne marche pas... J'ai saisi les codes que vous m'avez donnés mais l'impression reprend toujours en haut à gauche...
Voilà ce que j'ai saisi, peut-être ai-je fait une erreur :
Option Compare Database Public inToSkip As Integer Public intSkipped As Integer
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
Private Sub Report_Open(Cancel As Integer) Dim intEttiket As String
intLabel = InputBox("Combien d'étiquettes vides ?", "Attention")
If intLabel = "" Then Cancel = True Else intToSkip = Val(intLabel) End If End Sub
Salut,
"sarah" [...]
Sur une planche je peux imprimer 18 étiquettes. Ma question est la suivante : existe-t-il un moyen pour définir l'étiquette où doit débuter l'impression ???
Oui, de cette facon:
' Mettre dans la partie déclaration de l'état (au dessus de la première sub) 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 intLabel = "" Then Cancel = True Else intToSkip = Val(intLabel) End If End Sub
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
J'ai essayé, mais ça ne marche pas...
J'ai saisi les codes que vous m'avez donnés mais l'impression reprend
toujours en haut à gauche...
Voilà ce que j'ai saisi, peut-être ai-je fait une erreur :
Option Compare Database
Public inToSkip As Integer
Public intSkipped As Integer
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
Private Sub Report_Open(Cancel As Integer)
Dim intEttiket As String
intLabel = InputBox("Combien d'étiquettes vides ?", "Attention")
If intLabel = "" Then
Cancel = True
Else
intToSkip = Val(intLabel)
End If
End Sub
Salut,
"sarah"
[...]
Sur une planche je peux imprimer 18 étiquettes. Ma question est la suivante
: existe-t-il un moyen pour définir l'étiquette où doit débuter l'impression ???
Oui, de cette facon:
' Mettre dans la partie déclaration de l'état (au dessus de la première sub)
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 intLabel = "" Then
Cancel = True
Else
intToSkip = Val(intLabel)
End If
End Sub
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
J'ai essayé, mais ça ne marche pas... J'ai saisi les codes que vous m'avez donnés mais l'impression reprend toujours en haut à gauche...
Voilà ce que j'ai saisi, peut-être ai-je fait une erreur :
Option Compare Database Public inToSkip As Integer Public intSkipped As Integer
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
Private Sub Report_Open(Cancel As Integer) Dim intEttiket As String
intLabel = InputBox("Combien d'étiquettes vides ?", "Attention")
If intLabel = "" Then Cancel = True Else intToSkip = Val(intLabel) End If End Sub
Salut,
"sarah" [...]
Sur une planche je peux imprimer 18 étiquettes. Ma question est la suivante : existe-t-il un moyen pour définir l'étiquette où doit débuter l'impression ???
Oui, de cette facon:
' Mettre dans la partie déclaration de l'état (au dessus de la première sub) 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 intLabel = "" Then Cancel = True Else intToSkip = Val(intLabel) End If End Sub
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
3stone
Salut,
"sarah"
J'ai essayé, mais ça ne marche pas...
Si, ce code fonctionne parfaitement ;-)
J'ai saisi les codes que vous m'avez donnés mais l'impression reprend toujours en haut à gauche...
Il ne faut pas lancer un "preview" pour ensuite vouloir l'imprimer!!!
Il faut par contre lancer directement l'impression et cela fonctionne.
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Salut,
"sarah"
J'ai essayé, mais ça ne marche pas...
Si, ce code fonctionne parfaitement ;-)
J'ai saisi les codes que vous m'avez donnés mais l'impression reprend
toujours en haut à gauche...
Il ne faut pas lancer un "preview" pour ensuite vouloir l'imprimer!!!
Il faut par contre lancer directement l'impression et cela fonctionne.
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
