Discussion :

[Electrizec45]

Bonjour,

Je suis en train de créer un formulaire permettant d'imprimer des codes-barres sur une imprimante Zebra ZT 410.

Voici mon programme ZPL :

Code :

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

1
2
3
4
Print #intFic, "^XA"
 Print #intFic, "^A0N,52,52^FO245,50^FDICI^FS"
 Print #intFic, "^BY2^FO230,115^BCN,120,N,N,N^FDICI^FS"
 Print #intFic, "^XZ"

J'aimerais que quand un utilisateur renseigne un champ sur le formulaire, que la valeur du champ apparaisse dans le programme zpl.
(Voir en bleu ci-dessus)
Pour éviter de faire copier/coller à chaque fois.

Merci,

Cdt

[marot_r]

Bonjour.

Celle là elle est facile :-).

Code :

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

1
2
3
4
Print #intFic, "^XA"
 Print #intFic, "^A0N,52,52^FO245,50^FD" & ICITonCode & "^FS"
 Print #intFic, "^BY2^FO230,115^BCN,120,N,N,N^FD" & ICITonCode & "^FS"
 Print #intFic, "^XZ"

A+

[Electrizec45]

Bonjour,

Selon votre conseil, j'ai remplacé dans le programme zpl mais ça ne fonctionne toujours pas.

Voici que j'ai fait :

Mode Création >> Propriétés >> onglet "Toutes" >> Nom "txtChaineCaractere"
(CI-dessous)



Ensuite, je colle dans le programme zpl.

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
 Option Compare Database
 Option Explicit
 
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Function Impression_Zebra1()

'Déclaration de la variable et du type
    'Variable : NomFichier ; Type : Texte
    Dim NomFichier As String
    'Variable : intFic ; Type : Nombre entier
    Dim intFic As Integer
    'Variable : ImpCherche ; Type : Objet (imprimante par défaut)
    Dim ImpCherche As Printer
    'Variable : Imprimante trouvée ; Type : True(Vrai)/False(Faux)
    Dim ImprimanteTrouvée As Boolean
    'Variable : NumImp ; Type : Nombre entier
    Dim NumImp As Integer
    'Variable : Compteur ; Type : Nombre entier
    Dim Compteur As Integer
    'Variable : NomFichier ; Type : Texte
    Dim strPORT As String
    Dim i As Integer
    Dim iP As Integer
    Dim prtImprim As Printer
    Dim txtChaineCaractere As Variant
    Dim Texte77 As Variant
    
'Fournir un numéro de fichier non utilisé
intFic = FreeFile

'Chemin d'accès
NomFichier = "C:\Users\loiseaua.EUOTIS\Desktop\Documentrelaiimpressionétiquette.txt"

'Ouvrir le document texte en écriture (vidé à chaque ouverture)
Open NomFichier For Output As intFic

'Écrire le programme ZPL (Saut de ligne automatique)
        
        Print #intFic, "^XA"
        Print #intFic, "^A0N,52,52^FO245,50^FD" & Texte77 & "^FS"
        Print #intFic, "^BY2^FO230,115^BCN,120,N,N,N^FD" & txtChaineCaractere & "^FS"
        Print #intFic, "^XZ"
        
        'Fermeture du document texte
        Close #intFic

   iP = Application.Printers.Count
 
For i = 0 To iP - 1
    Set prtImprim = Application.Printers(i)
    'Debug.Print prtImprim.DeviceName
 
    If prtImprim.DeviceName = "z40" Then
        'imprimer sur cette imprimante-ci
        ShellExecute 0, "print", NomFichier, vbNullString, "", 1
    End If
    Set prtImprim = Nothing
Next i

End Function

Mais quand je change la valeur du champ dans le formulaire, la valeur mise n'est pas pris en compte dans le programme zpl.

Merci,

Cdt.

[tee_grandbois]

bonjour,
il ne faut surtout pas déclarer en variables des contrôles du formulaire déjà existants: cela va les initialiser à vide.
Il faut supprimer les lignes 27 et 28 du code et faire référence aux contrôles du formulaire en cours :

Code :

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

1
2
3
 
        Print #intFic, "^A0N,52,52^FO245,50^FD" & Me.Texte77 & "^FS"
        Print #intFic, "^BY2^FO230,115^BCN,120,N,N,N^FD" & Me.txtChaineCaractere & "^FS"

[Electrizec45]

Bonjour,

Le problème est résolu.

Voici ce que j'ai mis.

Code :

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

1
2
3
4
5
 
        Print #intFic, "^XA"
        Print #intFic, "^A0N,52,52^FO245,50^FD" & Forms![frmCodeBarres].Texte77 & "^FS"
        Print #intFic, "^BY2^FO230,115^BCN,120,N,N,N^FD" & Forms![frmCodeBarres].txtChaineCaractere & "^FS"
        Print #intFic, "^XZ"

Merci beaucoup pour votre aide,


Cdt