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