Discussion :

[marcopolo29280]

Bonjour,

J'ai mis en place une base access afin de fidéliser mes clients. Jusque là aucun problème.

là ou ça se gâte, c'est que je souhaite imprimer des étiquettes (avec code barre) pour remettre à mes clients une carte de fidélité nominative.

J'utilise généralement pour mes mailing des planches d'étiquettes (format A4)

Bien entendu, je ne veux pas utiliser une planche à chaque fois que je dois établir une carte de fidélité !!!

Comment puis-je faire lorsque je souhaite imprimer une seule étiquette sur un endroit de la planche A4 déterminé.
Il faudrait en fait qu'en début d'impression, je puisse indiquer la position de départ. (démarrer à l'étiquette 5 par exemple ...). Visiblement, d'après mes essais, plus facile à dire qu'à faire.

J'espère avoir été assez explicite.

Par avance merci

Marco

[Invité]

Bonjour

J'avais vu ce sujet et j'espérais beaucoup de réponses, car cela m'intéresse beaucoup, mais apparemment ce ne doit pas être simple.

[Domi2]

Bonjour,

Un peu de code.

Deux variables à déclarer dans la section "Déclaration" de l'état, la première procédure sur l'événement Sur ouverture de l'état, la deuxième sur l'événement Sur impression de la section "Détail".

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Compare Database
Option Explicit
 
'--------------------------------------------------------------------------------------------
' Projet          : -
' Auteur          : Pierre (3stone) - http://www.3stone.be/access/
' Version / Date  : 1.0 / 01.01.2008
' Révision / Date : -
' Commentaires    : Permet de commencer l'impression d'étiquettes
'                   à la position choisie
' Lien            : http://www.3stone.be/access/articles.php?lng=fr&pg=62
'--------------------------------------------------------------------------------------------
 
Public intEtiquettesAPasser As Integer
Public intEtiquettesPassees As Integer
 
Private Sub Report_Open(Cancel As Integer)
 
    Dim intNbEtiquettesVides As String
 
    intNbEtiquettesVides = InputBox("Nombre d'étiquettes vides ?")
 
    If IsNull(intNbEtiquettesVides) Then
 
        Cancel = True
 
    Else
 
        intEtiquettesAPasser = Val(intNbEtiquettesVides)
 
    End If
 
End Sub
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 
    If intEtiquettesPassees < intEtiquettesAPasser Then
 
        Me.NextRecord = False
 
        Me.PrintSection = False
 
        intEtiquettesPassees = intEtiquettesPassees + 1
 
    End If
 
End Sub

Domi2

[Invité]

Je viens d'essayer la solution de Domi2.
C'est génial.
A l'ouverture de l'Etat un paramètre demande en fait combien d'étiquettes manquent sur la feuille et l'impression démarre à la suivante.

On peut l'adapter par une case à cocher pour demander si on veut commencer sur une feuille entière ou sur une feuille entamée et tout baigne.

Domi2 You are the king

[Domi2]

Re,

Ben roi peut-être, mais de la recherche alors...

Bon dév !

Domi2

[marcopolo29280]

Merci pour la réponse, j'essaie dès demain matin, mais vu l'enthousiasme de GAYOT, que du plaisir en perspective

Bonne soirée

Marco

[tibo33]

Bonjour,

J'ai utilisé l'astuce de Domi2, que je remercie chaleureusement au passage , car j'avais la même problématique. Par contre, j'ai un souci : lors de l'aperçu de l'état, le positionnement se fait bien, par exemple, à la 3ème étiquette. Mais dès que je lance l'impression physique, Access refuse d'imprimer à la position voulue et utilise systématiquement la 1ère étiquette. J'ai testé en impression avec PDFCreator : Idem. L'imprimante est une Laser Canon.
J'utilise Access 2000 avec Windows 2000.
Est-ce un bug de cette version ou ai-je loupé quelque chose ?

Merci et à bientôt

Tibo33

[Domi2]

Bonjour,

lors de l'aperçu de l'état, le positionnement se fait bien, par exemple, à la 3ème étiquette. Mais dès que je lance l'impression physique, Access refuse d'imprimer à la position voulue et utilise systématiquement la 1ère étiquette.

J'avais mis ça en place il y'a longtemps, mais ça me rappelle quelque chose...

Si tu lances l'impression directement sans passer par l'aperçu, ça fonctionne ?

Domi2

[Invité]

Bonjour

Une autre solution qui est possible (je n'ai plus cela sous la main), c'est d'alimenter ton état par une table temporaire, dans laquelle tu ajoutes des enregistrements vides qui font office d'étiquettes vides, et ensuite tu ajoutes ceux qui sont à imprimer.

Philippe

[tibo33]

Bonjour,

Oui Domi2, l'impression directe sans passer par l'aperçu fonctionne. Tu me devances car j'allais ajouter cette précision.
S'il n'y a pas de solution, j'ai toujours la possibilité de lancer l'aperçu puis de poser la question si c'est Ok et de lancer l'impression en direct. A moins que... tu ais la solution ?

Merci

tibo33

[Domi2]

Ok,

Je n'ai pas l'appli sous la main, mais c'est bien ça... Je n'avais pas considéré la chose importante, car un "aperçu" d'une planche d'étiquettes ne me semblait pas indispensable...

Pour la solution, je vais essayer de voir avec l'auteur...

Domi2