استكمال التقرير باسطر فارغة

أضف 20 سجلا بالجدول

واجعل الاسم يساوى مسطرة المسافات

اخي ابو لميس شكراً لكـ على متابعتك للموضوع ،،، ومحاولتك المساعدة في الحل

لم أفهم أخي ما تقصد ،،،

رغم أني افضل أن يكون الحل برمجياً لتعدد الاستخدام ،،،

بارك الله فيك

في انتظار حلول اخرى

تفضل اخي الكريم

سوف نستخدم هذا الكود البرمجي لإنشاء صفوف التقرير

Private Sub Report_Page()
Dim intNumLines As Integer
Dim intLineNumber As Integer
Dim intTopMargin As Integer
Dim ctl As Control
Dim intLineHeight As Integer
Dim intLineLeft As Integer
Dim intLineWidth As Integer
intNumLines = 50
intLineLeft = 720
intLineWidth = 1440 * 5
intTopMargin = Me.Section(3).Height
intLineHeight = Me.Section(0).Height
For intLineNumber = 0 To intNumLines - 1
Me.Line (intLineLeft, intTopMargin + (intLineNumber * intLineHeight))-Step(intLineWidth, 0)

Next
End Sub

يمكنك التحكم في عدد صفوف التقرير حسب العدد المطلوب في هذا السطر

intNumLines = 50

وضعت لك 50 سطر منها 20 بها بيانات و 30 سطر فارغ بإمكانك التعديل على الرقم فقط حسب رغبتك

لا تنسانا من التقييم بارك الله بك

za-Continuous_ lines-UP.rar

بالتوفيق

بارك الله فيكـ أختنا أم عهود على هذا الحل الرائع ،،، وآسف ان فهمتي كلمة سطر كما تم في الحل

ما قصدته بارك الله فيكـ ان يستكمل التقرير بنفس المربعات المعبأة ولكن فارغة بهذا الشكل ::

تستحقين اكثر من التقييم ،،، ولكن لا يسعنى أن نقدم غيره

الف شكر مرة ثانية ،،،

في انتظار الحل المطلوب بإذن الله

ممتاز جدا

كنت أبحث عنه

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