الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه مصلح الحريصي في 25 ديسمبر 2001 · 3 رد · 2,613 مشاهدة · في قسم الأرشيف و المواضيع المميزه
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

#2

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

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

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

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

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

#3

جزاك الله خير هذا ماكنت ابحث عنه

#4

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

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

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

هذا الموضوع مغلق.

مواضيع مشابهة