بسم الله الرحمن الرحيم
السلام عليكم
كيف تتم الطباعة دفعة واحدة لجدول ما أي طباعة كشف النقاط لجميع الطلبة دون ادخال رقم لكل واحد منهم
هل يمكن طباعة مجموعة معينة على سبيل المثال ادخال القيمة 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 كتب :با أخي بارك الله فيك و جزاك كل الخير لكن ان أمكن أن تعزز كلامك بمثال تطبيقي يعطيك العافية
تفضل أخي الكريم مثال تطبيقي على الفكرة التي طرحتها
مثال جيد جدا بارك الله فيك أخي أنورسوفت و جزاك الل كل خير