Sujet Précédent Sujet Suivant

CODE BARRE CODE39, EAN13, 2/5I

cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 30 mars 2006 à 15:36
cs_deuss33 Messages postés 9 Date d'inscription samedi 29 mars 2003 Statut Membre Dernière intervention 23 mai 2006 - 26 juin 2009 à 00:56

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/34654-code-barre-code39-ean13-2-5i

cs_deuss33 Messages postés 9 Date d'inscription samedi 29 mars 2003 Statut Membre Dernière intervention 23 mai 2006
26 juin 2009 à 00:56

Une nouvelle version est prete avec impression verticale 90 et 270°, les intermédiaires ne servent pas à grand chose, mais cela est possible.
je vous la met à disposition courant juillet 2009.

cs_JeSuisUnMouton Messages postés 1 Date d'inscription vendredi 28 décembre 2007 Statut Membre Dernière intervention 28 décembre 2007
28 déc. 2007 à 03:14

Merci, mec, t'es au courant que ta doc vaut encore plus cher que ton source?
Respect.

cs_yohann59 Messages postés 12 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 15 janvier 2008
31 oct. 2006 à 17:29

Salut Tres bon code en effet, Mais j'aurais une petite question :

Je fait ceci pour imprimer mon codebarre :

' Code barre 1 Ligne 1
DDate = MDate
Printer.FontSize = 8
Printer.FontBold = True
Printer.CurrentX = 800
Printer.CurrentY = 1150
Printer.Print "N° dossier"
CodeBarre = Format(DDate, "1" & "yymmdd" & Seqd.Text)
CalibrageTrait = 1
Style = 2
Epaisseur1Trait = 19
nHauteur = 590
nLargeur = 18
nHautDec = 20
Col = 45
Lig = 1370
Call CodBar(CodeBarre, CalibrageTrait, nHauteur, nLargeur, nHautDec, _
Col, Lig, Epaisseur1Trait, Style, Paramc, ImprimerTxt, _
NomPolice, TaillePolice, DecalTxt)

DecalTxt = 50
CalibrageTrait = 5
Epaisseur1Trait = 10
Paramc = "Code25i"
NomPolice = "Times New Roman"
TaillePolice = 10
ImprimerTxt = "1"
Printer.FontName = NomPolice

Ce qui me donne un Code sur 11 Caractères.
Ma question est donc, Comment ajouter le Checksum à la fin de mon codebarre

Merci d'avance ;)

Yohann

ritchy01 Messages postés 41 Date d'inscription mardi 16 septembre 2003 Statut Membre Dernière intervention 20 décembre 2009
26 juin 2006 à 09:57

C'est vrai que la doc est super interessante ! merci

cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
30 mars 2006 à 15:36

Salut deuss, je viens de découvrir cette source suite à ce post : http://www.vbfrance.com/forum.v2.aspx?ID=700211

T'as l'air d'avoir sacrément bosser sur les codes barres. Je serais currieux de connaitre l'occasion d'une telle recherche ? ça ressemble à un cours, es-tu formateur ?

En tout cas je garde cette source sous le coude (la doc surtout), très intéressante, même si j'ai pas regarder le code.

Je te met 10 comme note, juste pour la doc qui l'accompagne, elle est déjà imprimée et épinglée sur mon tableau d'astuce de codage.

Discussions similaires

Code-barres sous Excel

[D7] Impression code-barres sur une imprimante d'étiquettes

comment pourrais-je recuperer ou imprimer mon code bar

Code barre avec tabulation

Les codes barres

Votre réponse

Discussions similaires