Discussion :

[jeanpierre78]

Bonjour,

Merci pour la réponse.

Lorsque je corrige ce bug, j'ai la boîte de dialogue qui demande le nombre d'étiquettes à sauter mis j'ai alors une erreur "Variable non définie" sur "NbreEnregistrement", ligne 8 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)

    If intEtiquettesPassees < intEtiquettesAPasser Then
            Me.NextRecord = False
            Me.PrintSection = False
    End If
    intEtiquettesPassees = intEtiquettesPassees + 1
    If intEtiquettesPassees = NbreEnregistrement + intEtiquettesAPasser Then
            intEtiquettesPassees = 0
    End If

End Sub

Ce qui est normal car "NbreEnregistrement" n'est pas défini. Si je remplace "NbreEnregistrement" par "intNbreEnregistrement" qui est défini, j'ai alors des pages blanches.

Jean-Pierre

[Invité]

As tu bien déclaré la variable?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public NbreEnregistrement As Integer

[jeanpierre78]

Bonsoir,

Lorsque je déclare la variable "NbreEnregistrement", je n'ai plus d'erreur mais mon état affiche des pages blanches et non les étiquettes.

Jean-Pierre

[Invité]

J'avais pas bien vu.
Tu avais déjà déclaré intNbreEnregistrement , donc ce n'est pas la peine d'avoir deux variables identiques.
Il faut également que tu répondes à la question de Domi2.

[jeanpierre78]

Bonjour,
Tu passes bien un argument en ouvrant ton état ?
Peux-tu poster le code ?
Domi2

Bonsoir,

Le code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
    Public intEtiquettesAPasser As Integer
    Public intEtiquettesPassees As Integer
    Public intNbreEnregistrement As Integer
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 
    If intEtiquettesPassees < intEtiquettesAPasser Then
            Me.NextRecord = False
            Me.PrintSection = False
    End If
    intEtiquettesPassees = intEtiquettesPassees + 1
    If intEtiquettesPassees = intNbreEnregistrement + intEtiquettesAPasser Then
            intEtiquettesPassees = 0
    End If
 
End Sub
 
Private Sub Report_Open(Cancel As Integer)
 
    intNbreEnregistrement = Nz(Me.OpenArgs, 0)
    Dim intNbEtiquettesVides As String
    intNbEtiquettesVides = InputBox("Nombre d'étiquettes manquantes sur la première planche ?")
    If IsNull(intNbEtiquettesVides) Then
            Cancel = True
        Else
            intEtiquettesAPasser = Val(intNbEtiquettesVides)
    End If
 
End Sub

A l'ouverture de l'état, j'ai bien la boîte de dialogue qui demande le nombre d'étiquettes manquantes mais ensuite j'ai des pages blanches!!

Jean-Pierre

[Domi2]

Bonjour,

Visiblement, tu as fait un peu de "mélange" des deux codes.

Ce qu'a corrigé mill3d avec son code, c'est d'ouvrir l'état en passant en argument le nombre d'étiquettes de l'état. Quelque chose comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenReport "NomEtat" , acViewPreview, , , , 16

Donc, recopie son code et essaye d'ouvrir ton état en passant en argument le nombre d'étiquette de celui-ci.

Domi2

[Anastasiane]

Bonjour,

Merci beaucoup pour ce code qui marche très bien!!
En voulant pousser plus loin, j'ai voulu essayer l'amélioration proposée par mill3d mais j'ai le même problème que jeanpierre78.

Comment doit-on placer en argument le nombre d'étiquette (j'en ai 24) ?
Je n'ai pas compris la dernière réponse de Domi2 et je bloque sur ça, donc impossible d'imprimer les étiquettes à partir de l'Aperçu avant impression.

Quelqu'un pourrait-il m'éclairer?
Merci par avance