10-11-14, 11:27 PM (آخر تعديل لهذه المشاركة : 10-11-14, 11:30 PM {2} بواسطة Ahmed_Mansoor.)
في المثال المرفق , حل الأسئلة كلها , بالنسبة للثالث فيه مشكلة في تصدير التقرير في الخطوط العربيه تتحول في البي دي إف بشكل معكوس ومفصله لم أتوصل إلى حل هذه المشكلة إلى الآن , أيضاً تأكد من إضافة مكتبة التصدير البي دي إف التابعة للأكتف ريبورت للمشروع , إسم المكتبة : ActiveReports PDF Export Filter
10-11-14, 11:31 PM (آخر تعديل لهذه المشاركة : 11-11-14, 12:03 AM {2} بواسطة administrator.)
(10-11-14, 11:27 PM)Ahmed_Mansoor كتب : في المثال المرفق , حل الأسئلة كلها , بالنسبة للثالث فيه مشكلة في تصدير التقرير في الخطوط العربيه تتحول في البي دي إف بشكل معكوس ومفصله لم أتوصل إلى حل هذه المشكلة إلى الآن , أيضاً تأكد من إضافة مكتبة التصدير البي دي إف التابعة للأكتف ريبورت للمشروع , إسم المكتبة : ActiveReports PDF Export Filter
جاري التجربة
وفقك الله دنيا وآخره
ممتاز جداُ ( اشكرك )
استفسار آخر
كيف أجعل كل سطر بالتقرير بلون
مثلاً ( احمر ابيض احمر ابيض احر ابيض ... وهكذا) يعني مثلاً تكون الاسطر الزوجيه بلون والفرديه بلون اخر
11-11-14, 12:31 AM (آخر تعديل لهذه المشاركة : 11-11-14, 12:32 AM {2} بواسطة Ahmed_Mansoor.)
إنسخ هذا الكود وألصقة داخل كود التقرير , يعني إضغط على أي مكان في التقرير دبل كلك , ملاحظة : لابد أولاً من تغيير خاصية الـ BackStyle التابعة لقسم الـ Detail إلى القيمة 1 أو Normal :
كود :
Dim zCounter As Integer
Private Sub ActiveReport_ReportStart()
zCounter = 0
End Sub
Private Sub Detail_Format()
If zCounter Mod 2 = 0 Then
Detail.BackColor = &H80FFFF
Else
Detail.BackColor = &HE0E0E0
End If
(11-11-14, 12:31 AM)Ahmed_Mansoor كتب : إنسخ هذا الكود وألصقة داخل كود التقرير , يعني إضغط على أي مكان في التقرير دبل كلك , ملاحظة : لابد أولاً من تغيير خاصية الـ BackStyle التابعة لقسم الـ Detail إلى القيمة 1 أو Normal :
كود :
Dim zCounter As Integer
Private Sub ActiveReport_ReportStart()
zCounter = 0
End Sub
Private Sub Detail_Format()
If zCounter Mod 2 = 0 Then
Detail.BackColor = &H80FFFF
Else
Detail.BackColor = &HE0E0E0
End If
zCounter = zCounter + 1
End Sub
ممتاز جزاك الله كل خير ورفع قدرك
تم التطبيق بنجاح
وان شاء الله تنحل مشلكة اللغة العربية ( جاري البحث عن حل )