السلام عليكم ورحمة الله وبركاته
أين أجد خطوط لتعريب الأرقام في الكريستال ريبورت غير هذه الخطوط sc_OUHOD أو خط amien 01 أريد خطوط تكون تستخدم في الخطابات وتكون أفضل من هذه الخطوط ( أريد استخدامها لمربعات النص وليس للحقول المرتبطة بقاعدة البيانات )
جرب هذه المجموعة من الحطوط
Fonts
السلام عليكم ورحمة الله وبركاته
للأسف أستاذ كامل جربت تظهر الأرقام باللغة الانجليزية
شاكر لك إهتمامك
كود :
Imports System.Globalization
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Create an instance of your Crystal Report
Dim report As New ReportDocument()
report.Load("Path_to_your_report_file.rpt")
' Set the culture to Arabic
Dim arabicCulture As CultureInfo = CultureInfo.CreateSpecificCulture("ar")
System.Threading.Thread.CurrentThread.CurrentCulture = arabicCulture
' Set the locale ID for Crystal Report
report.SetDatabaseLogon("username", "password")
Dim tables As Tables = report.Database.Tables
Dim connectionInfo As New ConnectionInfo()
' Set the locale for each table in the report
For Each table As Table In tables
connectionInfo = table.LogOnInfo
connectionInfo.LocaleID = CType(arabicCulture.LCID, Integer)
table.ApplyLogOnInfo(connectionInfo)
Next
' Set the Crystal Report Viewer's report source to the modified report
CrystalReportViewer1.ReportSource = report
End Sub
End Class
الأستاذ الجزازي شكراً لإهتمامك سوف اجرب الكود واعطيك النتيجة