delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف تتم الطباعة دفعة واحدة لجدول ما
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم
السلام عليكم
كيف تتم الطباعة دفعة واحدة لجدول ما أي طباعة كشف النقاط لجميع الطلبة دون ادخال رقم لكل واحد منهم
هل يمكن طباعة مجموعة معينة على سبيل المثال ادخال القيمة 01-10 اي طباعة الكشف 1 الى الكشف 10
بارك الله فيكم
وعليكم السلام

أخي،

نعم، ممكن .

أخي - أنت لم تذكر قاعدة البيانات المستعملة + المكون الذي تستعمله في الطباعة .

المهم أنا استعمل Paradox و Quick report


توجد عدة طرق ،
كل شخص لديه فكرة ، وانا راح اقدملك فكرتي
-أولا :
قم بنسخ جدول الكشف (لنفترض ان اسمه StudentsList ) إلى أي اسم آخر أنا راح اسميه
StudentListPrint

في الدلفي وليس في قاعدة البانات لكي يتم العمل بالكشوفات التي قمت بإدخالها


- ثانيا :
بداخل المكون Quick Report قم بتحديد DataSource تبع StudentListPrint عبر DataSet

لكي يطبع كل الكشوفات دفعة واحدة

ملاحظة إذا لم تحدد DataSet سيطبع الكشف المحدد في الجدول

- ثالثا :
- لتحديد مثلا عدد معين
كما تود أنت (من 1 إلى 10 ) . نقوم بفلترة الجدول الثاني طبعا StudentListPrint


أكتب الكود التالي : قبل تنفيذ أمر الطباعة :

كود :
[align=left]StudentListPrint.Filter:=('(no_ent=10)or(no_ent<10)');[/align] [align=left]StudentListPrint.Filtered:=True[/align]
;

no_ent = هو اسم الحقل الذي يحتوي على رقم الكشف
في هذا الكود سيطبع جميع الكشوف التي عددها يساوي 10 وأقل من 10


إذا كنت تود طباعة الكشوفات من 5 إلى 10 :

أكتب الكود التالي : قبل تنفيذ أمر الطباعة :


كود :
[align=left]StudentListPrint.Filter:=('((no_ent=5)or(no_ent>5)and(no_ent<10)or(no_ent=10))');[/align] [align=left]StudentListPrint.Filtered:=True;[/align]
في هذا لكود سيطبع جميع الكشوف التي عددها يساوي 5 أوأكبر من 5 و يساوي 10 أو أقل من 10

بعدها أمر الطباعة عادي
كود :
[align=left]Quickrep1.Print; // للطباعة مباشرة // او[/align] [align=left]QuickRep1.Preview; // للمعاينة قبل الطباعة[/align]
هذا شرح مختصر ربما سيفيدك في مشروعك وفي مشوارك
لا تنسانا بالدعاء الصالح

با أخي بارك الله فيك و جزاك كل الخير لكن ان أمكن أن تعزز كلامك بمثال تطبيقي يعطيك العافية
hamam2008 كتب :با أخي بارك الله فيك و جزاك كل الخير لكن ان أمكن أن تعزز كلامك بمثال تطبيقي يعطيك العافية



تفضل أخي الكريم مثال تطبيقي على الفكرة التي طرحتها
مثال جيد جدا بارك الله فيك أخي أنورسوفت و جزاك الل كل خير