Discussion :

[badrel]

Bonjour,
Je n’ai pas trouvé ou je postule ce sujet, mais je savait que développez est mon ami.
Je veux imprimer des étiquettes code barre, pour cela j’ai cherchait une police et j’ai réussi à la trouver, tout marche bien, sauf que après l’impression le lecteur code à barre n’arrive pas à lire ces codes, vous trouverez ci-joint un fichier avec les codes, veuillez me dire si les codes est erroné ou quoi ?
Merci infiniment.

[Asdorve]

salut,

peux-tu nous montrer ton code pour faire le code barre? quelle police utilises-tu?

Merci de nous renseigner davantage.

[badrel]

Vous trouverez ci-joint les 2 polices.

[ProgElecT]

salut,

peux-tu nous montrer ton code pour faire le code barre? quelle police utilises-tu?

Merci de nous renseigner davantage.

Salut, ton image est de toutes façons trop pixelisées pour faire un essai (que j'ai tout de même fait et qui ne fonctionne pas).
Si tu code bien en VB6, mes nous les lignes de commandes de construction du dit code-barre et de la sortie impression.
Dans mes sources sur DVP (voire signature plus bas) tu peux trouver un générateur de code-barre, avec un projet de démonstration.

[Delbeke]

Le problème du code barr avec des polices est de générer la sequence de caractères qui doit être imprimée.
Si tu veux imprimer du ean, il y a deux type, Ean8 et Ean13, tous deux ne sont capables que d'imprimer des chiffres. il faut en plus un code debut et un code fin, avant la fin, il y a un checksum. De plus, suivant la postion d'un caractères dans la chaine, la forme de la barre change. Il faut donc un algo pour construire une chaine correspondant à la police.
Si tu veux imprimer en code 3of9, c'est un peu plus simple, il faut ajouter une '*' en debut et fin de chaine, et tu imprimes avec ta police

Exemple de code de calcul pour l'ean13

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
73
74
75
76
77
78
79
80
81
82
Public Function ean13$(Chaine$)
  'Cette fonction est régie par la Licence Générale Publique Amoindrie GNU (GNU LGPL)
  'This function is governed by the GNU Lesser General Public License (GNU LGPL)
  'V 1.1.1
  'Paramètres : une chaine de 12 chiffres
  'Parameters : a 12 digits length string
  'Retour : * une chaine qui, affichée avec la police EAN13.TTF, donne le code barre
  '         * une chaine vide si paramètre fourni incorrect
  'Return : * a string which give the bar code when it is dispayed with EAN13.TTF font
  '         * an empty string if the supplied parameter is no good
  Dim i%, CheckSum%, first%, CodeBarre$, tableA As Boolean
  ean13$ = ""
  'Vérifier qu'il y a 12 caractères
  'Check for 12 characters
  If Len(Chaine$) = 12 Then
    'Et que ce sont bien des chiffres
    'And they are really digits
    For i% = 1 To 12
      If Asc(Mid$(Chaine$, i%, 1)) < 48 Or Asc(Mid$(Chaine$, i%, 1)) > 57 Then
        i% = 0
        Exit For
      End If
    Next
    If i% = 13 Then
      'Calcul de la clé de contrôle
      'Calculation of the checksum
      For i% = 12 To 1 Step -2
        CheckSum% = CheckSum% + Val(Mid$(Chaine$, i%, 1))
      Next
      CheckSum% = CheckSum% * 3
      For i% = 11 To 1 Step -2
        CheckSum% = CheckSum% + Val(Mid$(Chaine$, i%, 1))
      Next
      Chaine$ = Chaine$ & (10 - CheckSum% Mod 10) Mod 10
      'Le premier chiffre est pris tel quel, le deuxième vient de la table A
      'The first digit is taken just as it is, the second one come from table A
      CodeBarre$ = Left$(Chaine$, 1) & Chr$(65 + Val(Mid$(Chaine$, 2, 1)))
      first% = Val(Left$(Chaine$, 1))
      For i% = 3 To 7
        tableA = False
         Select Case i%
         Case 3
           Select Case first%
           Case 0 To 3
             tableA = True
           End Select
         Case 4
           Select Case first%
           Case 0, 4, 7, 8
             tableA = True
           End Select
         Case 5
           Select Case first%
           Case 0, 1, 4, 5, 9
             tableA = True
           End Select
         Case 6
           Select Case first%
           Case 0, 2, 5, 6, 7
             tableA = True
           End Select
         Case 7
           Select Case first%
           Case 0, 3, 6, 8, 9
             tableA = True
           End Select
         End Select
       If tableA Then
         CodeBarre$ = CodeBarre$ & Chr$(65 + Val(Mid$(Chaine$, i%, 1)))
       Else
         CodeBarre$ = CodeBarre$ & Chr$(75 + Val(Mid$(Chaine$, i%, 1)))
       End If
     Next
      CodeBarre$ = CodeBarre$ & "*"   'Ajout séparateur central / Add middle separator
      For i% = 8 To 13
        CodeBarre$ = CodeBarre$ & Chr$(97 + Val(Mid$(Chaine$, i%, 1)))
      Next
      CodeBarre$ = CodeBarre$ & "+"   'Ajout de la marque de fin / Add end mark
      ean13$ = CodeBarre$
    End If
  End If
End Function

[badrel]

Merci Delbeke, mais comment je vais utiliser cette function?

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
73
74
75
76
77
78
79
80
81
82
Public Function ean13$(Chaine$)
  'Cette fonction est régie par la Licence Générale Publique Amoindrie GNU (GNU LGPL)
  'This function is governed by the GNU Lesser General Public License (GNU LGPL)
  'V 1.1.1
  'Paramètres : une chaine de 12 chiffres
  'Parameters : a 12 digits length string
  'Retour : * une chaine qui, affichée avec la police EAN13.TTF, donne le code barre
  '         * une chaine vide si paramètre fourni incorrect
  'Return : * a string which give the bar code when it is dispayed with EAN13.TTF font
  '         * an empty string if the supplied parameter is no good
  Dim i%, CheckSum%, first%, CodeBarre$, tableA As Boolean
  ean13$ = ""
  'Vérifier qu'il y a 12 caractères
  'Check for 12 characters
  If Len(Chaine$) = 12 Then
    'Et que ce sont bien des chiffres
    'And they are really digits
    For i% = 1 To 12
      If Asc(Mid$(Chaine$, i%, 1)) < 48 Or Asc(Mid$(Chaine$, i%, 1)) > 57 Then
        i% = 0
        Exit For
      End If
    Next
    If i% = 13 Then
      'Calcul de la clé de contrôle
      'Calculation of the checksum
      For i% = 12 To 1 Step -2
        CheckSum% = CheckSum% + Val(Mid$(Chaine$, i%, 1))
      Next
      CheckSum% = CheckSum% * 3
      For i% = 11 To 1 Step -2
        CheckSum% = CheckSum% + Val(Mid$(Chaine$, i%, 1))
      Next
      Chaine$ = Chaine$ & (10 - CheckSum% Mod 10) Mod 10
      'Le premier chiffre est pris tel quel, le deuxième vient de la table A
      'The first digit is taken just as it is, the second one come from table A
      CodeBarre$ = Left$(Chaine$, 1) & Chr$(65 + Val(Mid$(Chaine$, 2, 1)))
      first% = Val(Left$(Chaine$, 1))
      For i% = 3 To 7
        tableA = False
         Select Case i%
         Case 3
           Select Case first%
           Case 0 To 3
             tableA = True
           End Select
         Case 4
           Select Case first%
           Case 0, 4, 7, 8
             tableA = True
           End Select
         Case 5
           Select Case first%
           Case 0, 1, 4, 5, 9
             tableA = True
           End Select
         Case 6
           Select Case first%
           Case 0, 2, 5, 6, 7
             tableA = True
           End Select
         Case 7
           Select Case first%
           Case 0, 3, 6, 8, 9
             tableA = True
           End Select
         End Select
       If tableA Then
         CodeBarre$ = CodeBarre$ & Chr$(65 + Val(Mid$(Chaine$, i%, 1)))
       Else
         CodeBarre$ = CodeBarre$ & Chr$(75 + Val(Mid$(Chaine$, i%, 1)))
       End If
     Next
      CodeBarre$ = CodeBarre$ & "*"   'Ajout séparateur central / Add middle separator
      For i% = 8 To 13
        CodeBarre$ = CodeBarre$ & Chr$(97 + Val(Mid$(Chaine$, i%, 1)))
      Next
      CodeBarre$ = CodeBarre$ & "+"   'Ajout de la marque de fin / Add end mark
      ean13$ = CodeBarre$
    End If
  End If
End Function

[Delbeke]

Tout depends de la façon dont tu as prévu d'imprimer ton etiquette
par exemple, si tu avais prévu

Code :

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

Printer.print Code

Tu remplaces par

Code :

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

Printer.Print ean13(Code)

Reste à savoir si ce code est adapté à ta police ean, ce qui n'est pas evident.
Mais l'idée est là