Discussion :

[Electrizec45]

Bonjour,

Pour mon entreprise, je dois réaliser des étiquettes pour imprimer sur une imprimant ZEBRA ZT410.

J'ai réalisé un générateur de code-barres sous Access.

J'aimerais avoir la possibilité qu'en un clique, je puisse imprimer plusieurs étiquette en une seule demande d'impression.

Plus précisément, j'ai un fichier excel regroupant plusieurs valeurs.

J'ai réussi grâce à des discussions traitant de ce sujet, à importer mes valeurs dans une table Access.

Voir code (ci-dessous)

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Option Compare Database
Option Explicit
 
 Function ImportXL()
 Dim xlPath As String
 Dim wsName As String
 Dim startRow As Integer
 Dim pKeyCol As String
 Dim acTable As String
 Dim pKey As String
 
 xlPath = "C:\Users\loiseaua.EUOTIS\Desktop\micro.xlsx"
 wsName = "Feuil1"
 startRow = 2
 pKeyCol = "A"
 acTable = "tblexportarticle"
 pKey = "Codearticle"
 
 
    On Error GoTo erreur
 
 
    Dim app As Excel.Application
    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet
 
    Set app = New Excel.Application
    Set wkb = app.Workbooks.Open(xlPath)
    Set wks = wkb.Worksheets(wsName)
 
    Dim i As Integer, cSQL As String
    i = startRow
 
 
    DoCmd.SetWarnings False
 
    With wks
 
        While .Range(pKeyCol & i).Value <> ""
 
            If DCount("*", acTable, pKey & " LIKE '" & .Range(pKeyCol & i).Value & "'") = 0 Then
 
 
                cSQL = "tblexportarticle " & acTable & " ( Codearticle, Désignation ) VALUES (" & Chr(34) & .Range("A" & i) & Chr(34) & ", " & Chr(34) & .Range("B" & i) & Chr(34) & ");"
 
 
               DoCmd.RunSQL cSQL
 
            End If
 
            i = i + 1
        Wend
 
    End With
 
 
    DoCmd.SetWarnings True
 
 
    Set wks = Nothing
    Set wkb = Nothing
    Set app = Nothing
 
    MsgBox "Import du fichier Excel réussi.", vbInformation + vbOKOnly, "Opération terminée..."
 
    ImportXL = True
    Exit Function
 
erreur:
    MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbInformation
    ImportXL = False
End Function

Donc j'aimerais reprendre ces listes de champs dans mon programme ZPl.
Pour pouvoir imprimer ligne par ligne ( une valeur = une étiquette).
Cela est-il possible ?
Voici mon programme ZPL (Voir ci-dessous).

Code :

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

1
2
3
 
        
   Print #intFic, "^XA^CFA," & Forms![frmCodeBarres].Texte237 & "," & Forms![frmCodeBarres].Texte235 & "^FDicicode^FS"

Merci,

Cdt

[marot_r]

Bonjour.

Ici un exemple de code qui fait cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
dim db as dao.database:set db=currentdb
dim r as dao.recordset:set r=db.openrecordset("tblexportarticle", dbOpenSnaphsot)
 
do while not r.eof
    Print #intFic, "^XA^CFA," & r![Codearticle] & "," & r![Désignation] & "^FDicicode^FS" 'Je ne suis pas sur des champs mais c'est l'idée.
    r.moveNext
loop 
 
r.close: set r=nothing
db.close:set db=nothing

A+