سؤال عن تنسيق التقرير

الأخ ابونمي مرحباً بك في المنتدى ولو ركزت في قراءت التعليمات لوجدت فيها (( الرجاء استخدام ميزة البحث قبل طرح السؤال أو الرجوع للأرشيف )) وفعلاً لو رجعت للأرشيف لوجدت فيه تقريباً 13 موضوع عن التقارير ويتحدث عن كل مايخص التقارير من تنسيق واظهار رسم خلفي ووضع اطار حول التقرير ليظهر بشكل منسق وغيرها الكثير .

عموماً حصل خير واكرر ترحيبي بك في هذا المنتدى الرائع ، وتجد مع الرد عنوان الأرشيف ادخل عليه وستجد في القسم السادس مواضيع عديدة عن التقارير. وحياك الله معانا. ;) (f) ;)

[WEB]http://www.arabteam2000.com/vb/showthread.php?s=&threadid=11734[/WEB]

بو تركي

الف شكر عزيزي

ياسيدي بحثت عن الموضوع قبل ما اسأل ولقصر درايتى وجهلى لم ابحث بشكل صحيح وبالتالى لم تظهر النتائج المرجوة.

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

واسف ان اخذني الغضب.

سأبحث في الوصلة التي وضعتها وان شاء الله اجد مبتغاي ولك منى الف تحية وللقائمين على المنتدى مثلها ;)

حياك الله أخ ابونمي وعلى فكرة سعة صدر الأخوان المشرفين واااااااااسعة جداً جداً جزاهم الله كل خير والحق يجب أن يقال لقد قدم لي هذا المنتدى فوائد عظيمة وسعة علم كبيرة ولم يبخل علي فرسان المنتدى بالإجابة على أي استفسار أطرحه أو يقوم أي شخص آخر بطرحه ومرة أخرى جزاهم الله كل خير ووفق الله من قام على هذا الموقع عموماً لكل خير واحسان وجعل ماقام به في ميزان حسناته.

واذا انك وجدت مبتغاك.

والسلام ختام.;)(gift):rolleyes:

تفضل يا ابو نمي غالي والطلب رخيص

هذه بعض مشاركات الاخوان في المنتدى القديم

ستجد ما تريد فيها

كود يضع إطار جميل حول صفحة التقرير أثناء المعاينة والطباعة

اعرض التقرير في وضع التصميم واذهب إلى خصائصه وفي حدث _ عند الصفحة في الوحدة النمطية أكتب الكود التالي:

Me.DrawWidth = 10

Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B

Me.DrawWidth = 4

Me.Line (100, 100)-(Me.ScaleWidth - 115, Me.ScaleHeight -115), , B

هذا الكود يحيط الصفحة بإطار جميل و أنا استخدمه دائماً في تقاريري

مصلح الحريصي الله يجزاه خير

_________________________________________

الله يعطيك العافية على هذا الكود الجميل .

ولمن أراد أن يضيف إطار ثالث يضيف في آخر الكود السطرين التاليين :

Me.DrawWidth = 2

Me.Line (80, 80)-(Me.ScaleWidth - 100, Me.ScaleHeight - 100), , B

السطر الأول لتحديد السماكة والثاني لتحديد الموقع .

وقد وجدت في ملف التعليمات كود شبيه به :

Dim rpt As Report, lngColor As Long

    Dim sngTop As Single, sngLeft As Single

    Dim sngWidth As Single, sngHeight As Single



    Set rpt = Me.Report

    ' Set scale to pixels.

    rpt.ScaleMode = 3

    ' Top inside edge.

    sngTop = rpt.ScaleTop + 5

    ' Left inside edge.

    sngLeft = rpt.ScaleLeft + 5

    ' Width inside edge.

    sngWidth = rpt.ScaleWidth - 10

    ' Height inside edge.

    sngHeight = rpt.ScaleHeight - 10

    ' Make color red.

    lngColor = RGB(255, 0, 0)

    ' Draw line as a box.

    rpt.Line (sngTop, sngLeft)-(sngWidth, sngHeight), lngColor, B

غير في الأرقام بالمئات وانظر النتيجة .

وللجميع التحية

ابو حمود الله يذكره بالخير

_________________________________________________

كما يمكن الإستفادة من هذا الكود لإظهار التقرير فى شكل جدول

مع تغيير الأرقام لتتناسب مع حجم الخانات الموجودة بالتقرير

Private Sub Report_Page()

' Draw a Page border around this report.

Me.DrawWidth = 15



Me.Line (180, Me.Report.Height + 10580)-(Me.Report.Width - 220, _

Me.Report.Height + 1850), Color, B



Me.Line (1080, Me.Report.Height + 10580)-(Me.Report.Width - 220, _

Me.Report.Height + 1850), Color, B



Me.Line (1990, Me.Report.Height + 10580)-(Me.Report.Width - 220, _

Me.Report.Height + 1850), Color, B



Me.Line (2990, Me.Report.Height + 10580)-(Me.Report.Width - 220, _

Me.Report.Height + 1850), Color, B



Me.Line (6300, Me.Report.Height + 10580)-(Me.Report.Width - 220, _

Me.Report.Height + 1850), Color, B



Me.Line (7350, Me.Report.Height + 10580)-(Me.Report.Width - 220, _

Me.Report.Height + 1850), Color, B





Me.Line (14020, Me.Report.Height + 10580)-(Me.Report.Width - 220, _

Me.Report.Height + 1850), Color, B



End Sub

essam rabea مدري وين هذا الشخص

وازيدك من الشعر بيت

هل تريد وضع دائرة على حقل معين في التقرير

مبدعنا فهد الدوسري له كلمة في ذلك اتجه لهذا الرابط

http://www.arabteam2000.com/vb/showthread....%CF%C7%C6%D1%C9

ووسع صدرك:D:D:D

يا اخوانى بارك الله فيكم :o

وجزاكم الله عنا كل خير

بو تركي (gift)

جمل الله حالك وطيب خاطر.والدنيا عيد اعاده الله علينا وعليكم بالخير (f)

وعلى فكرة لقيت ما كنت ابحث عنه في الوصلة التى وضعتها.

الهاجري

الف شكر حبيبي والله ما قصرت (yess) وهذ اللى كنت ادور عليه.

ولا تشيل هم حبيبي الدنيا عيد وكلنا اخوان (f)

هذا مبتغانا !!! ;)