impression de cartes de visite

bonjour
voici un morceau de code qui realisera ta demande
dans l'etat tu auras 32 questions a repondre
le nbre d'etiquettes a imprimer
et le nbre a sauter qui correspond au nbre d'etiquettes
deja enlevees de ta feuille
slts

Dim nb As Integer
Dim nbi As Integer
Dim impri As Integer
Dim asauter As Integer
Dim cenhor As Integer
Dim cenver As Integer
Dim radius As Integer

Private Sub Détail_Format(Cancel As Integer, FormatCount
As Integer)
If nb < asauter Then
nb = nb + 1
Me.NextRecord = False
Me.PrintSection = False
Exit Sub
End If
If nbi <= impri Then
Me.NextRecord = False
nbi = nbi + 1
Exit Sub
End If
Me.Texte2.Visible = False
Me.Texte3.Visible = False
Me.Texte4.Visible = False

ScaleMode = 3 ' Choisit les pixels comme unité de
mesure.
cenhor = 500 ' Centre horizontal.
cenver = 250 ' Centre vertical.
radius = 200 ' Rayon du cercle.
Circle (cenhor, cenver), radius, 255, , , 0.5

End Sub

Private Sub EntêteÉtat_Format(Cancel As Integer,
FormatCount As Integer)
impri = InputBox("nbre a imprimer ", "", 17)
asauter = InputBox("nbre a sauter", "", 5)
nbi = 1
nb = 0
End Sub

-----Message d'origine-----
Bonjour à tous

J'ai un état qui imprime sur des feuilles comportant 10
cartes de visite.

Si je veux imprimer 3 cartes, il va utiliser les 3
premières et le reste de

la feuille sera perdu, à moins que qq m'explique comment
faire pour

commencer la prochaine impression sur la 4ème.
Une astuce à laquelle j'ai pensé consisterait à placer en
tête de liste 3

enregistrements vierges, mais dans ce cas le fond de la
carte s'imprimerait

quand même, à moins qu'il soit possible de rendre
invisible la section

détail si l'enregistrement est vierge.

Qu'en pensez-vous ?


.

Merci
C'est ok avec le code simplifié suivant

Dim nb As Integer
Dim asauter As Integer

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If nb < asauter Then
nb = nb + 1
Me.NextRecord = False
Me.PrintSection = False
Exit Sub
End If
End Sub

Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
asauter = InputBox("nbre a sauter", "", 5)
nb = 0
End Sub


"jipidi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:072301c3da7a$e161e3a0$a501280a@phx.gbl...
bonjour
voici un morceau de code qui realisera ta demande
dans l'etat tu auras 32 questions a repondre
le nbre d'etiquettes a imprimer
et le nbre a sauter qui correspond au nbre d'etiquettes
deja enlevees de ta feuille
slts

Dim nb As Integer
Dim nbi As Integer
Dim impri As Integer
Dim asauter As Integer
Dim cenhor As Integer
Dim cenver As Integer
Dim radius As Integer

Private Sub Détail_Format(Cancel As Integer, FormatCount
As Integer)
If nb < asauter Then
nb = nb + 1
Me.NextRecord = False
Me.PrintSection = False
Exit Sub
End If
If nbi <= impri Then
Me.NextRecord = False
nbi = nbi + 1
Exit Sub
End If
Me.Texte2.Visible = False
Me.Texte3.Visible = False
Me.Texte4.Visible = False

ScaleMode = 3 ' Choisit les pixels comme unité de
mesure.
cenhor = 500 ' Centre horizontal.
cenver = 250 ' Centre vertical.
radius = 200 ' Rayon du cercle.
Circle (cenhor, cenver), radius, 255, , , 0.5

End Sub

Private Sub EntêteÉtat_Format(Cancel As Integer,
FormatCount As Integer)
impri = InputBox("nbre a imprimer ", "", 17)
asauter = InputBox("nbre a sauter", "", 5)
nbi = 1
nb = 0
End Sub