تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طباعة كل سجل في الجدول بصفحة
#11
السلام عليكم
1-تضع text object في التقرير في اي Section انت تختاره مثل عندنا text1
2- تعرف متغير في الفورم فيو ب txt
Dim txt As Object
3- تساوي المتغير txt مع text object الذي اخترناه واسمو text1 لتتم عملية عرض محتواه في التقرير
txt = crystalreport1.section1.reportobject
("text1")
4- ف مثلا عاوزين نعرض قيمة textbox 1 التي في form1
txt.text=form1.textbox1.text
وبهذه الطريق نكون قد عرضان محتوي textbox1 الموجود في form1 في التقرير
الكود كامل:
Dim txt As Object
txt = CrystalReport1.Section1.ReportObjects("text1")
txt.text = Form1.TextBox1.Text



ولا حقا ان شاء الله سوف اعمل لكن مثال مثله
وشكراً
الرد
تم الشكر بواسطة:
#12
(27-03-14, 12:50 PM)aftfm p11636 كتب :السلا عليكم ورحمة الله وبركاته

اخي العزيز yousef


إقتباس :اما بخصوص طباعة كل سجل بصفحة
موجودة في الكرستال ريبورت وتتم بترك 24 سم اذا كانت A4
لاحظ الكرستال ريبورت

هذا في حالة انني اريد طباعة فقط ما بداخل الداتا قريد

لكن لو كان لدي بضع البيانات في القريد والبعض الآخر في مربع نص أو اداة تاريخ أو Lable

وتظهر بيانات في القيد وباقي بيانات السجل في الادوات الأخرى للسجل الواحد

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

هل فكرت بالسبب؟؟؟
ان الكرستال ريبورت لا ياخذ اكثر من تابل
لذا التابل الموجود في الداتا ست اضيفة للكرستال ريبورت و ليس بالضرورة ان يكون نفس التابل للداتا جرد التي يتعامل معها المستخدم لكن عند اضافة التابل بالكود يجب ان يكون نفس التابل الذي قمت باضافته للكرستال
وبالنسبة لطباعة السجل من لابل او تكست بكس فذلك يكون بالتعديل على على التابل المضاف بالكود وذلك حسب الحاجة
اذا عندك شي او مثال اعطيني وانا برفعلك مثال
الرد
تم الشكر بواسطة:
#13
جزاك الله خيرا
الرد
تم الشكر بواسطة:
#14
هل تم حل سؤالك ؟
لأن واجهت هذه المشكلة نفسها في برنامجي
الرد
تم الشكر بواسطة:



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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم