Discussion :

[gene]

Pour ne plus gaspiller des feuilles d'étiquettes, je demande à l'utilisateur à partir de quelle étiquettes imprimer.
Ensuite je "saute" les x premières étiquettes et j'imprime à partir de la x+1


voici mon code qui fonctionne très bien en aperçu avant impression mais jamais en impression !!!! dommage

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
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
    NbBlancCompteur = NbBlancCompteur + 1
    If NbBlancCompteur < NbBlanc Then
        Me.NextRecord = False
        Me.MoveLayout = True
        Me.PrintSection = False
 
    Else
        Me.NextRecord = True
 
    End If
 
 
 
End Sub
 
Private Sub Report_Activate()
    DoCmd.SetWarnings (True)
    NbBlancCompteur = 0
    NbBlanc = InputBox("No d'étiquettes à partir de laquelle il faut imprimer", "Impression étiquette", 1)
 
End Sub

[/code]

[Arkham46]

slt,

je pense qu'il faut rajouter :

Code :

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

Cancel = True

[gene]

slt

je rajoute cancel = true sur quel évènement ?

merci beaucoup de m'aider à ne plus gaspiller du papier....

[Celia1303]

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) 
    NbBlancCompteur = NbBlancCompteur + 1 
    If NbBlancCompteur < NbBlanc Then 
        Me.NextRecord = False 
        Me.MoveLayout = True 
        Me.PrintSection = False 
 
    Else 
        Me.NextRecord = True 
 
    End If

A quel moment l'impression se fait ???
Je suis désolé, je comprends pas trop ton code.

Pour l'impression, tu as juste un menu avec imprimer, et quand on clique ca imprime directement ???
Si c'est ca, l'impression se fait avec l'imprimante par default et imprime tout le document.

[gene]

mon code fonctionne si j'imprime directement

en fait il commence l'impression sur la xième étiquette (le no est demandé à l'utilisateur)

par contre si je fais un aperçu avant impression, l'aperçu est correcte. Mais dès qu'on imprime cet apperçu, il ignore tout et imprime dès l'étiquette 1

[Arkham46]

slt,

J'ai pas fais beaucoup d'états, je connais moyennement, mais peut-être qu'avec ça .... :

Code :

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

1
2
3
4
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) 
    NbBlancCompteur = NbBlancCompteur + 1 
    Cancel = (NbBlancCompteur < NbBlanc)
End Sub

[Celia1303]

Si jamais ca ne fonctionne pas avec cancel
une solution serait de changer la source de l'état pour qu'il n'affiche que les infos qu'on veut imprimer.
Sinon par défault il imprime l'état en entier.

ou alors il faudrait permettre à l'utilisateur, après avoir cliquer sur imprimer, que la fenetre avec les propriété d'impression s'affiche (qd on est sous word par exemple)
pour qu'il n'imprime qu' a partir de telle page.
Je sais pas si je me suis bien expliquer...

[gene]

le problème n 'est pas du côté de la source de l'état...je veux simplement imprimer n étiquettes vide au début de la page
L'utilisateur n'indique combien d'étiquettes sont vides

Si je lance l'impression => ça marche
si je lance l'aperçu avant impression => ça marche
si je lance l'aperçu avant impression puis je lance l'impression => ça ne marche pas

[Celia1303]

je veux simplement imprimer n étiquettes vide au début de la page

Excuse moi j'avais vraiment mal compris ton problème.
D'ailleurs je comprends plus rien du tout.
Désolé, et bon courage.

[cafeine]

je veux simplement imprimer n étiquettes vide au début de la page
L'utilisateur n'indique combien d'étiquettes sont vides
Ceci dans le but d'économiser du papier...!!!

Si je lance l'impression => ça marche
si je lance l'aperçu avant impression => ça marche
si je lance l'aperçu avant impression puis je lance l'impression => ça ne marche pas. Pourquoi

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
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
    NbBlancCompteur = NbBlancCompteur + 1
    If NbBlancCompteur < NbBlanc Then
        Me.NextRecord = False
        Me.MoveLayout = True
        Me.PrintSection = False
    Else
        Me.NextRecord = True
    End If
 
 
End Sub
 
Private Sub Report_Open(Cancel As Integer)
    NbBlancCompteur = 0
    NbBlanc = InputBox("No d'étiquettes à partir de laquelle il faut imprimer", "Impression étiquette", 1)
End Sub

Merci de reprendre les échanges ici