Lecture code barre [Résolu]
cs_yves29
34
Messages postés
dimanche 11 mai 2003Date d'inscription
20 juin 2011
Dernière intervention
-
25 mars 2006 à 16:07 - Dernière réponse :
cs_yves29
34
Messages postés
dimanche 11 mai 2003Date d'inscription
20 juin 2011
Dernière intervention
- 26 mars 2006 à 10:53
- Lecture code barre
- Lecture Code barre XP [Résolu] (Résolu) » Forum - Visual Basic
- Lecture code barre 13 Caractère » Forum - Visual Basic 6
- VBA Lecture code barre » Forum - Visual Basic 6
- Lecture du code barre des articles en gestion stock. » Forum - Visual Basic 6
- Comparateur de prix avec lecture de code barre » Forum - Javascript / DHTML
2 réponses
Meilleure réponse
C'est assez laborieux à expliquer comme ça.
j'ai potassé la doc fournie avec le joujou, quelques heures plus tard ça marche.
l'appli tourne sous vb6 avec un code 39 et une police "c39hrp24dhtt.ttf"
voici la fonction qui imprime ça sera ça de gagné .
Public Function Imprimer_Code_Barre(référence_article, désignation_article)
Dim NroImp As Integer
NomApp = "UNIGEST" 'nom general application
Section = "Options"
Clef = "imprimante_code_barre"
NroImp = GetSetting(NomApp, Section, Clef, 1)
Set Printer = Printers(NroImp)
Printer.Font = "C39HrP24DhTt"
Printer.FontSize = 36
Printer.Orientation = vbPRORLandscape
Printer.Print "!" & référence_article & "*"
Printer.Font = "Arial"
Printer.FontSize = 10
Printer.Print Left(désignation_article, 35)
Printer.EndDoc
End Function
j'ai potassé la doc fournie avec le joujou, quelques heures plus tard ça marche.
l'appli tourne sous vb6 avec un code 39 et une police "c39hrp24dhtt.ttf"
voici la fonction qui imprime ça sera ça de gagné .
Public Function Imprimer_Code_Barre(référence_article, désignation_article)
Dim NroImp As Integer
NomApp = "UNIGEST" 'nom general application
Section = "Options"
Clef = "imprimante_code_barre"
NroImp = GetSetting(NomApp, Section, Clef, 1)
Set Printer = Printers(NroImp)
Printer.Font = "C39HrP24DhTt"
Printer.FontSize = 36
Printer.Orientation = vbPRORLandscape
Printer.Print "!" & référence_article & "*"
Printer.Font = "Arial"
Printer.FontSize = 10
Printer.Print Left(désignation_article, 35)
Printer.EndDoc
End Function
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 94 internautes ce mois-ci
Meilleure réponse
En fait j'ai trouvé comment marche ce lecteur DS2200. Datalogic founit un logiciel (WinHost) permettant de configurer le scan. lorsque la config est OK il faut la sauvegarder dans l'eeprom du lecteur.
Et ça ce n'est expliquer nul part !
Et ça ce n'est expliquer nul part !
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 94 internautes ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.