كيف اطبع تقرير Datareport من الداتا قريد

أرفق مثال

اخي الكريم الحمد لله المشكلة النحلت بهذا الكود

With rptdynamic

Set .DataSource = Nothing

.DataMember = ""

Set .DataSource = RsContact.DataSource

With .Sections("Section1").Controls

For i = 1 To .Count

If TypeOf .Item(i) Is RptTextBox Then

.Item(i).DataMember = ""

.Item(i).DataField = RsContact.Fields(i - 1).Name

End If

Next i

End With

.Show

End With

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

وشكراً لتعاونك

ما شاء الله عليك :)

أخي الكريم بامكانك أن تطبع التقرير بالعرض

وذلك بوضع الجملة التالية قبل Show.

Orientation = rptOrientLandscape.

ولكن يجب أن تثبت VB6 Service pack6

ابحث عنها في موقع مايكروسوفت (مجانية)