أضافة عنوان لتقرير ال Crystal Report

السلام عليكم

الطريقة سهلة للغاية, ولا تحتاج إلا لثلاثة خطوات فقط.

أولاً في التقرير, قم بإدراج عنصر من نوع ReportTitle Object من Special Fields بهذا الشكل

ليصبح الان في التقرير بهذ الشكل

تبقى الان الكود السهل للغاية نكتب مثلاً في حدث تحميل النموذج هذا السطر فقط .

rpt.SummaryInfo.ReportTitle = "الفريق العربي للبرمجة"

ليكون الناتج بهذا الشكل

الان الشق الثاني من السؤال هو إخراج الشهر الحالي بالعربي الميلادي سيكون بإستخدام الثقافة Culture بهذا الشكل

Imports System.Globalization

 Dim rpt As New cr

        Dim formatInfo As DateTimeFormatInfo

        formatInfo = CultureInfo.CurrentCulture.DateTimeFormat

        rpt.SummaryInfo.ReportTitle = " تقرير شهر " & _
        formatInfo.GetMonthName(Now.Month)

        crv.ReportSource = rpt

شاهد الملف المرفق للإيضاح

بالتوفيق أخي الكريم.

CrystalReportDynamicTitle.zip

واو :lol:

له له له

مشكور يالغملاسي

والله انك رائع

انا لقيت الحل بس شوي طويل

لكن حلك أوف خطير مرة

أشكرك جدا على المساعدة

على فكرة الحل اللي لقيتة موجود في العنوان التالي

http://support.businessobjects.com/library...es/c2010277.asp

الله يجازيك بالخير

و يكفيك مزاج المدراء اللي من نوع مديري :lol:

طيب معلش و لو ثقلنا عليك

سؤال أخر على الطاير بالمرة

أسف على ثقل الدم

لو كان معاي عنوانين للتقرير بمعنى لو أحب أيضا أطلع في راس التقرير كلمة أخرى تكون بعيدة عن العنوان شوي مثل "يعتبر التقرير هذا صحيح مالم يردنا منكم اي رد خلال فترة 3 ايام "

فكيف نسوي في هذة الحالة ؟

السلام عليكم

حياك الله أخي ولا شكر على واجب

الطريقة كالتالي

نضيف عنصر نصي Text Object في النموذج ثم بالكود التالي نعرف متغير TextObject

بعدها نعمل إتصال بذلك العنصر في التقرير أو ما يعرف بـ Referencing Text Object

ثم في خاصية الـ Text نسند له القيمة التي نود عرضها بهذا الشكل

نضيف الفضاء الذي يركن فيه هذا العنصر

Imports CrystalDecisions.CrystalReports.Engine

ثم نقوم بتعريف العنصر بهذا الشكل

Dim Text As TextObject
Text = rpt.ReportDefinition.ReportObjects("Text1")
Text.Text = " server_programmer "

بالتوفيق إن شاء الله .

CrystalReportDynamicTitle.zip

أقول لك شي

والله انك رائع

مشكور حبيبي