طباعة True Dbgrid من اليمين إلى اليسار

السلام عليكم

ما تبحث عنه اعتقد انه غير موجود فالاهتمام باللغة العربية قليل جدا وخاصة الاتجاه من اليمين الى اليسار .

فانا استخدم هذه الاداة منذ فترة طويلة وخاصة الاصدار السابع ولم استخدم الطباعة من خلال الاداة بسبب هذه المشكلة ومشاكل اخرى في اللغة العربية .

أشكر سرعة استجابتك يا اخي ولكن ما الذي تفعله أنت في هذه الحاله

وشكرا لك

السلام عليكم

الصراحة انا اتعامل مع الآكتف ريبورت وبالتالي اقوم بالطباعة من خلاله (هناك دورة للاكتف ريبورت في قسم التقارير في المواضيع المثبتة )

شكرا لك أخي طارق المشكله انا خلصت المشروع وهو الآن شغال تمام بس انا حبيت يطبع البيانات من اليمين لليسار كتزويق اكثر للمشروع على كل حال أشكر حسن تعاونك واتمنى لك التوفيق

طبعا يوجد حلول لكنها بحاجة الى قليل من الحسابات والعمل

فيمكن تبديل مكان الاعمدة حتى تأتي مرتبة من اليمين الى اليسار كما هي موجودة في الجريد عندما تكون RightToLeft

Private Sub Command1_Click()
Dim i As Integer, kk As Integer
For i = Int(TDBGrid1.Columns.Count) - 1 To 0 Step -1
TDBGrid1.Columns(kk).Order = i
kk = kk + 1
Next

TDBGrid1.PrintInfo.PrintPreview

For i = 0 To TDBGrid1.Columns.Count - 1
TDBGrid1.Columns(i).Order = i

Next


End Sub

يبقى ان تجعلها على اليمين فاعتقد بحاجة الى ان تحسب عرض الجريد ثم التحكم الهامش الايسر عن طريق زيادته بما يلائم

شكرا جزيلا لك ولإهتمامك أخ طارق