okumuyor sayın yandemir...
mutlaka bir hata yapıyoruz birşeyler eksik ki okumuyor
ve bu fonttan kaynaklı eminim ama ne????????

barkodu bastığınız printer laser printer olmalı eğer barkod içinde kap kilo adet gizlemeyecek iseniz standart dışı olan code39 yada codabar kullanın ama codabar içinde başında sonunda "*" olmasına dikkat edin * kontrol kodunu da basın. okurken kaldırın.

barkod okuyucunuzun setup ayarını kontrol edin. code 128 için ayarlımı?

barkod okuyucu tak çalıştır şeklinde yani klavye girişine takılıyor...yani setup yok.

codabar için * kullanın demişiniz okurken kaldırın bu nasıl olacak yani barkodu ürettik yıldızlı(*) bunu okurken nasıl kaldırabiliriz?

yazdırırken
="*" & deger & "*"
okurken
=mid(deger,2,len(deger)-2)

---

tüm okuyucuların setup ayarı vardır. bu ayar sadece bir barkodu okutmakla olur. kitapçığında listesi vardır. code128 için şu kodu okutun code39 için şunu okutun diye setup ayarı bu kadar dır.

sayın yandemir buldum sorun çözüldü....çok teşekür ederim.

Private Sub UserForm_Initialize()

    cbxType.Clear

    cbxType.AddItem "UPC-A", 0

    cbxType.AddItem "UPC-E", 1

    cbxType.AddItem "EAN13", 2

    cbxType.AddItem "EAN8", 3

    cbxType.AddItem "JAN13", 4

    cbxType.AddItem "JAN8", 5

    cbxType.ListIndex = 0

    

    cbxFontName.Clear

    cbxFontName.AddItem "MW6 UES", 0

    cbxFontName.AddItem "MW6 UEM", 1

    cbxFontName.AddItem "MW6 UEL", 2

    cbxFontName.AddItem "MW6 UEXL", 3

    cbxFontName.AddItem "MW6 UEXXL", 4

    cbxFontName.ListIndex = 0

    

    cbxSize.Clear

    cbxSize.AddItem "8", 0

    cbxSize.AddItem "9", 1

    cbxSize.AddItem "10", 2

    cbxSize.AddItem "11", 3

    cbxSize.AddItem "12", 4

    cbxSize.AddItem "14", 5

    cbxSize.AddItem "16", 6

    cbxSize.AddItem "18", 7

    cbxSize.AddItem "20", 8

    cbxSize.AddItem "22", 9

    cbxSize.AddItem "24", 10

    cbxSize.AddItem "26", 11

    cbxSize.AddItem "28", 12

    cbxSize.AddItem "36", 13

    cbxSize.AddItem "48", 14

    cbxSize.AddItem "76", 15

    cbxSize.ListIndex = 6

    

    cbxColOffset.Clear

    cbxColOffset.AddItem "-5", 0

    cbxColOffset.AddItem "-4", 1

    cbxColOffset.AddItem "-3", 2

    cbxColOffset.AddItem "-2", 3

    cbxColOffset.AddItem "-1", 4

    cbxColOffset.AddItem "0", 5

    cbxColOffset.AddItem "1", 6

    cbxColOffset.AddItem "2", 7

    cbxColOffset.AddItem "3", 8

    cbxColOffset.AddItem "4", 9

    cbxColOffset.AddItem "5", 10

    cbxColOffset.ListIndex = 6

    

    cbxRowOffset.Clear

    cbxRowOffset.AddItem "-5", 0

    cbxRowOffset.AddItem "-4", 1

    cbxRowOffset.AddItem "-3", 2

    cbxRowOffset.AddItem "-2", 3

    cbxRowOffset.AddItem "-1", 4

    cbxRowOffset.AddItem "0", 5

    cbxRowOffset.AddItem "1", 6

    cbxRowOffset.AddItem "2", 7

    cbxRowOffset.AddItem "3", 8

    cbxRowOffset.AddItem "4", 9

    cbxRowOffset.AddItem "5", 10

    cbxRowOffset.ListIndex = 5

End Sub