آیا امکان چاپ بارکد در کریستال ریپورت هست ؟ [بایگانی]

View Full Version : آیا امکان چاپ بارکد در کریستال ریپورت هست ؟

iman_s52

دوشنبه 11 دی 1385, 17:38 عصر

چطور می تونم بارکد چاپ کنم ؟؟ من کنترل بارکد ندیدم ؟؟؟

vb341

پنج شنبه 14 دی 1385, 23:48 عصر

فکر کنم باید با کامپوننت بارکد تصویر رو تو بانک ذخیره و بعد اون رو در کریستال نشون بدی . اگر روش دیگه ای هست به ما هم بگین

babalengderaz

جمعه 15 دی 1385, 11:43 صبح

من این فایلو قبلا از سایت code project گرفته بودم اما هنوز بازش نکردم:لبخند:

pepeland

جمعه 15 دی 1385, 13:24 عصر

iman_s52

شنبه 16 دی 1385, 11:22 صبح

من دنبال کامپوننتش بودم ؟؟
از توجهتون متشکرم.

mjdjoon

شنبه 16 دی 1385, 11:52 صبح

سلام
برای چاپ بارکد علاوه بر فونت نیاز به توابع چاپ بارکد هم داری.
بدون این توابع ممکنه شما بتوانی بارکد چاپ کنی ولی بارکد های چاپ شده توسط بارکد اسکنر اسکن نمی شوند.
من برای اینکار از سایت جناب آقای علی آرش استفاده کردم والان بدون کوچکترین مشکلی بارکد چاپ می کنم.(البته برای دریافت فونت هزینه پرداختم).
برای کسب اطلاعات بیشتر می تونی به لینک های زیر مراجعه کنی:

http://www.aliarash.com

http://www.khedu.ir/article/ViewArticle.asp?id=382&catname=%DA%A9%D8%A7%D9%85%D9%BE%DB%8C%D9%88%D8%AA %D8%B1&ActiveStateCode=13

majjjj

یک شنبه 16 اردیبهشت 1386, 05:59 صبح

برای چاپ بارکد می توانید از فونتهای بارکد استفاده نمایید. فونتها را نصب کنید و سپس در کریستال ریپورت فونت فیلد مورد نظر خود را (مثلا کد کالا) به فونت بارکدتبدیل کنید.
در ضمیمه چندین فونت بارکد قرار داده ام . برای گرفتن فونت های بیشتر در گوگل سرچ کنید: Barcode font

ایا برای استفاده از این فونتها باید تنظیم خاصی انجام داد اخه من این فونتها را نصب کردم پس از پرینت دستگاه بارکدخوان نتونست بارکد رو بخونه

majjjj

سه شنبه 13 مرداد 1388, 13:23 عصر

من قبلا دنبال یک همچین چیزی بودم امروز که مشکلم حل شده و میدونم با این فونت تو کریستال ریپورت میشه بارکد ساخت فونتش رو میذارم تا بقیه هم استفاده کنن البته چیزهای دیگه ای هم هست که فعلا با همین فونت کارتون انجام میشه

abbasmirzaeinia

سه شنبه 19 بهمن 1395, 13:08 عصر

ابتدا برنامه 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 در خدمت شما هستم