ایجاد بارکد نوع 128 در کریستال ریپورت Crystal Report

[soheil_programmer]

با سلام.
من میخوام یک برنامه در ویژوال بیسیک بنویسم که قابلیت چاپ یک فرم شامل بارکد را داشته باشد.
من با خواندن راهنمای کریستال ریپورت متوجه شدم که در کریستال ریپورت برای ایجاد باکد فقط میشود از فونت های مخصوص بارکد جهت ساخت بارکد استفاده کرد (نمیدونم شاید بشود از ocx استفاده کرد که اگر کسی میتواند و راهش را بلد است به من هم بگوید) فونت های بارکد نوع 128 که من در اینترنت جستجو کردم اکثرا بصورت پولی میباشند.
حال اگر کسی راهی جهت ایجاد بارکد در کریستال ریپورت بلد است من را راهنمایی کند...

با تشکر - سهیل.

 

[masoud_pasha]

سلام دوست عزیر ..
بعد از این همه سال روش این کارو پیدا کردید ؟ من نیاز به همچین سورسی دارم

 

[abbasmirzaeinia]

سلام دوست عزیر ..
بعد از این همه سال روش این کارو پیدا کردید ؟ من نیاز به همچین سورسی دارم

ابتدا برنامه IDAutomation رو نصب کن
سپس در برنامه کریستال ریپورت formula fields جدید ایجاد کن و کد زیر رو در اون بنویس
Dim DataToEncode As String
DataToEncode = cStr( {moshtari.IDmoshtari},0 )
Dim StringLength as Number
Dim I as Number
Dim CurrentChar as String
Dim DataToPrint as String
DataToEncode = RTrim(LTrim(DataToEncode))
DataToEncode = UCase(DataToEncode)
StringLength = Len(DataToEncode)
For I = 1 To StringLength
CurrentChar = Mid(DataToEncode, I, 1)
If CurrentChar = " " Then CurrentChar = "_"
DataToPrint = DataToPrint & CurrentChar
Next I
Formula = "(" & DataToPrint & ")"
توجه داشته باشید در خط دوم اطلاعات خودتون رو وارد کنید.
درصورتی که بارکد خاصی رو همیشه میخواین استفاده کنین به شکل زیر وارد کنید
DataToEncode = "123456"
قسمت syntax باید در حالت بیسیک باشه
با تشکر میرزایی
آی دی تلگرام salamdoktor در خدمت شما هستم