• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

UPC barcode maken in Excel

Status
Niet open voor verdere reacties.

jelle87

Gebruiker
Lid geworden
13 nov 2013
Berichten
278
Goedenmorgen,

Ik zou graag in Excel een UPC code (cijfers) omzetten naar een Barcode.

In onderstaande bestand staan een aantal voorbeeldcodes;
Bekijk bijlage UPC code_omzetten_naar_barcode.xlsx

Weet iemand hoe ik dit voor elkaar kan krijgen, zodat ze ook afgedrukt (en met scanners gelezen) kunnen worden?

Alvast bedankt!

Groet,
Jelle
 
Dat werkt helaas niet, omdat die codes dan niet te scannen zijn. Als ik ze met een font omzet, zien ze er uit zoals de bovenste code:
UPC code voorbeeld.JPG

Terwijl de onderste (via een generator online gemaakt) wel werkt op de scanners.
 
Je ziet natuurlijk zelf ook wel dat dat een ander barcode font is....

Vermeld svp de specifikatie van het Bar code lettertype.
 
De bovenste is het 'UPCA' barcode font. De onderste is online gegenereerd (en die werkt).
 
De barcodefont is juist. Het is echter niet zomaar cijfers intypen en het werkt. Je moet bij het gebruikte font ook de "speciale tekens" leren. die staan bij het font zelf.

UPC-A heeft een "start" "midden" en "eind" teken. Die missen in je voorbeeld:

je code moet zijn S650512M114933E

De tekens in je font voor 'S' 'M' 'E' moet je zelf even opzoeken

(en mogelijk moet je ook manueel je L en R aanpassen)
 
Laatst bewerkt:
Bedankt voor het meedenken :) Ik heb gekeken of ik een uitleg er bij kon vinden, dat is gelukt.. Echter gaat het wel mijn petje te boven :( Dit zijn de instructies;

"
UPC-A Construction

The UPC-A symbol is physically constructed as follows:

Left hand guard bars, encoded 101
Number system character, encoded as a left hand character
First five data characters, encoded as left hand characters
Center guard pattern, encoded 01010
Last five data characters, encoded as right hand characters
Check character, encoded as a right hand character
Right hand guard bars, encoded 101

Nominal module bar/space width = 0.013 in (0.33 mm)
Worst case module width = 0.009 in. (0.23 mm)


The bars represent binary ones (1), while the spaces represent binary zeroes (0). The characters on the left hand side of the symbol always have odd parity, so the number of modules that are bars are always odd, while the parity of the right hand side of the tag always have even parity, and the number of modules that are bars on the right hand side of the tag is always even.

The following is the table for the character patterns, for both the left
hand and right hand characters.

UPC A Character Set

Left Hand Decimal Right Hand
Character Number Character\fN

0001101 0 1110010
0011001 1 1100110
0010011 2 1101100
0111101 3 1000010
0100011 4 1011100
0110001 5 1001110
0101111 6 1010000
0111011 7 1000100
0110111 8 1001000
0001011 9 1110100

Check Characters:

The check character for the UPC/EAN codes is generated by the following method:

1 - Designate the rightmost character odd.
2 - Sum all of the characters in the odd positions and multiply the result by three. (Remember to include the Number System Character)
3 - Sum all of the characters in the even positions
4 - Add the odd and even totals from steps two and three.
5 - Determine the smallest number that when added to the result from step four, will result in a multiple of 10. This is the check character.

UPC A Example:

Number system character = 0
Message characters = 0123456789
Position = OEOEOEOEOEO
Sum of odd positions = 0 + 1 + 3 + 5 + 7 + 9 = 25
Odd positions X 3 = 25 x 3 = 75
Sum of even positions = 0 + 2 + 4 + 6 + 8 = 20
Sum of even and odd = 75 + 20 = 95
Check character = 5
Tag to be encoded = 001234567895

Left hand barcode glyphs 0 to 9 are located at characters 48 (0x30) to 59 (0x39). Right hand parity barcode glyphs 0 to 9 are located at characters 64 (0x40) to 73 (0x49). The 'Start' characters indicating the number system used are at 80 (0x50) to 89 (0x59). The 'Stop' characters indicating the check character are located at 96 (0x60) to 105 (0x69). The "Center Guard" glyph is at character 112 (0x70). The 'Start' and 'Stop' characters also include the Left and Right Hand Guard Bars.
"

Snap jij hoe ze dit precies voor zich zien?
 
In een UDF user defined formula
Plaats onderstaande code in module1, daarna kan je in je werkblad de eigengemaakte formule "UPC_A" gebruiken.
Code:
[SIZE=1]Option Explicit

Public Function UPC_A(strBarcode As String) As String
    Dim istrBarcode As Long
    Dim lngBarcode As Long
        strBarcode = Left(strBarcode, 6) & Chr(112) & Right(strBarcode, 6)
        For istrBarcode = 1 To 13
            lngBarcode = Val(Mid(strBarcode, istrBarcode, 1))
            Select Case istrBarcode
            Case 1
                UPC_A = UPC_A + Chr(lngBarcode + 80)
            Case 2 To 6
                UPC_A = UPC_A + Chr(lngBarcode + 48)
            Case 7
                UPC_A = UPC_A + Chr(112)
            Case 8 To 12
                UPC_A = UPC_A + Chr(lngBarcode + 64)
            Case 13
                UPC_A = UPC_A + Chr(lngBarcode + 96)
            End Select
        Next
End Function
[/SIZE]
 
Wat lukt er niet dan? alpha's code werkt perfect bij mij:

vul dit in bij b2: =upc_a(a2)

Edit, geverifieerd met scanner
 
Laatst bewerkt:
Ik heb deze toch maar even open gezet, zodat ik geen nieuwe topic hoef te starten.

Ik wil nu graag nog een stap verder gaan, en via een formulier de juiste code afdrukken. Het (voorlopige) formulier heb ik aangemaakt, maar ik heb nu eigenlijk nog geen idee hoe verder te gaan:
Bekijk bijlage UPC_Code_Afdrukken.xlsm

Ik zou graag op deze manier het laten werken;
1. In het eerste vak kan een artikelnummer ingevoerd worden
2. De knop 'zoek artikelnummer' kijkt of dit nummer in de lijst voorkomt
3. als dat zo is, moet in het vak onder 'UPC code' de code (cijfers) ingevuld worden
4. indien mogelijk, onder de tekst 'barcode' de fysieke barcode weergeven
5. in het veld naast 'aantal stickers' het aantal af te drukken stickers in vullen
6. via 'druk af op GK420 printer' moeten deze stickers dan afgedrukt worden.

Het is nogal wat om zoiets in elkaar te draaien denk ik. Ik weet dat het mogelijk is, maar heb (nog) geen idee hoe ik dit voor elkaar moet krijgen. Kan iemand me helpen en/of in de juiste richting helpen :)?
 
Bekijk het maar eens.
Het afdrukken mag je zelf eens achter zoeken.
 

Bijlagen

  • UPC_Code_Afdrukken.xlsm
    22,2 KB · Weergaven: 197
Top Rudi, heel erg bedankt :)! Ik ga zelf eens kijken of ik er uit kan komen qua printer, zo niet, dan meld ik me hier wel weer (ben ik bang)!
 
Ik moet tot mijn spijt toegeven dat ik er niet uit kom :( Heb het forum al doorgespit, maar ik krijg het simpelweg niet werkend.

Wie kan me op gang helpen? De bedoeling is dus dat de UPC code (de fysieke barcode) afgedrukt wordt, zodra het aantal is ingevuld en op de print knop is gedrukt.
 
Zit je printer op USB of COM?
Is je driver als "Generic / Text Only" ingesteld.
Is het mogelijk om de barcode als ZPL-code naar je printer te sturen.
Als bovenstaande bij jou geen belletje laat rinkelen, dan wordt het zeer moeilijk omdat wij geen printer hebben en jij onze ogen en oren bent.

google "vba zebra zpl" en "vba zebra printer"

zie http://www.freevbcode.com/ShowCode.asp?ID=7804 voor vb code die met wat ombouw werk zou kunnen werken
 
Laatst bewerkt:
Bedankt voor het meedenken alphamax :)!

Het is een standaard Zebra GK420 printer op USB, alles met standaard instellingen. De printer is op 2 manier geinstalleerd, volgens de standaard instellingen maar ook als Generic/Text only. Welke is beter om te gebruiken?

Ik denk wel dat het mogelijk is om ZPL-code te versturen, maar ik weet eerlijk gezegd niet hoe.

We hebben 2 Zebra printers:
- De GK420 (welke mijn voorkeur heeft)
- Een S4M printer (heeft ander formaat labels, dus deze liever niet. maar als het eenvoudiger is, dan moet dat maar :))

alvast bedankt weer!
 
Ik weet ook niet hoe te versturen via USB, kan je niet beter contact opnemen met zebra.
Veel succes.
 
Hm, niet het antwoord waar ik op gehoopt had haha :)

Weet je wel hoe ik dan de selectie kan selecteren en dan het 'pop up scherm' naar voren te laten komen? Dus eigenlijk;
- Artikelnummer invoeren en op zoeken klikken
- De Barcode wordt dan weergegeven
- als je op de print knop drukt, komt het 'printscherm' naar voren (scherm wat ook naar voren komt als je Ctrl+P indrukt zeg maar)
- hier kun je dan zelf het aantal invullen en de juiste printer selecteren.

Is dat wel een optie?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan