أمر طباعة تقارير معينة

اخي الفاضل الشاعر

السلام عليكم ورحمة الله وبركاته

الموضوع بسيط ان شاء الله تعالى

كل ما عليك هو انشاء استعلام مبني على الجدول

نضع في خانة معايير امر الطباعة عبارة FALSE وتعني السجلات الغير مختاره .

نجعل مصدر التقرير هو الاستعلام بدلا من الجدول .

الان انظر النتيجة سواء في المعاينة او الطباعة من خلال النموذج

ننتقل الان الى مسح جميع الخانات اذا لا بد من انشاء استعلام تحديث بالكود لتحديث خانة الاختيار وجعلها تساوي False حسب العبارة التالية

DoCmd.RunSQL "UPDATE TAB01 SET TAB01.PRINT = False;"

وتوضع هذه العبارة في زر امر الطباعة بعد كود الطباعة مباشره بحيث يتم اولا ارسال امر الطباعة الى الطابعة حسب ما قمنا بإختياره من علامات صح وبعد الانتهاء من الطباعة سيتم ازالة جميع علامات الصح المختاره قد تلاحظ بعض من ازرار الاختيار لازالت عليها علامة صح وهذا يدل انه يتم ارسال امر طباعة السجل الى الطابعة ويمجرد تخزينها في الطابعة سيتم ازالتها فورا . فلا تخشى من هذه النقطه

PReport.rar

بارك الله فيك اخي الشاعر على هذه الكلمات

اذا اردنا طباعة التقرير لعدد محدد من الصفحات مثل صفحتين او ثلاث او غير ذلك من الصفحات التي نحددها فسنقوم بتغيير الكود السابق الذي في زر امر الطباعة الى هذا الكود الجديد

Private Sub RPRINT_Click()
DoCmd.SelectObject acReport, "TAB01", True
DoCmd.PrintOut , , , , 2
DoCmd.RunSQL "UPDATE TAB01 SET TAB01.PRINT = False;"
End Sub

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

PReport_UP.rar

السلام عليكم

أختي الفاضلة

زهرة

لقد قمت بتحميل الملف ، وقمت بالتعديل عليه ، حيث وضعتُ زرا مستقلا لعملية حذف العلامات في زر الطباعة ( بفصل الأمر )

وانتهينا من عملية الحذف

ولا نريد الرجوع لها

ولكن عملية الطباعة ، التي تمت عن طريق ( تحويل ماكرو إلى وحدة نمطية) وطلب طباعة نسختين ، لم تسلك معي

فالأمر دائما يعطيني طباعة 8 أوراق دون الرجوع إلى عدد السجلات الغير محددة ( في البرنامج الخاص بي ، وليس في المثال )

رغم أنني استوردت الوحدة النمطية والماكرو أيضا ولم أقم بتغيير أي حرف ، ما عدا اسم النموذج ، وإليكِ الكود مرة أخرى ، وهذا هو الكود بعد التعديل :

والأمر الجديد يطبع حتى السجل الفارغ ( الذي لا يوجد فيه أية بيانات ) أيضا

فهل من الممكن أن تقومي بإفادتي سواء بالشرح أو التعديل

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

تحياتي

( الشاعر )

اخي الفاضل الشاعر

السلام عليكم ورحمة الله وبركاته

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

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

حسنا سنقوم بالتغيير لما تريد ان يكون ولكن اتمنى عدم تغيير اي شيء في الكود لانه يعمل بشكل سليم وتمت تجربته اكثر من مره ولا يوجد به اي خلل

هذا الكود يوضع في حدث النموذج الحالي

وضعت لك في النموذج مربع نص غير منضم يدعى NCopy وهو الذي تضع به عدد النسخ .

عندما يكون خاليا من البيانات فإن زر الامر الخاص بالطباعة يصبح غير ممكن ولا تستطيع الضغط عليه الا اذا ادخلت عدد النسخ المطلوب طباعتها .

Private Sub Form_Current()
Me.NCopy.SetFocus
If Not IsNull(Me.NCopy) Then
Me.RPRINT.Enabled = True
Else
Me.RPRINT.Enabled = False
End If
Me.Refresh
End Sub

هذا الكود يوضع في حدث عند التغيير في مربع النص الغير منضم NCopy ليقوم بعملية التحديث للنموذج

Private Sub NCopy_Change()
Me.Requery
End Sub

هذا الكود يوضع في حدث عند النقر على زر امر الطباعه عندما يكون متاح

Private Sub RPRINT_Click()
DoCmd.SelectObject acReport, "TAB01", True
DoCmd.PrintOut , , , , Me.NCopy.Value
DoCmd.RunSQL "UPDATE TAB01 SET TAB01.PRINT = False;"
End Sub

آلية عمل الكود

عند النقر على زر امر الطباعة فإنه يقوم بإرسال امر اختيار التقرير المطلوب وهو TAB01

ثم يتم ارسال امر الطباعة مضافا اليه عدد النسخ المحدده في مربع النص NCopy سواء نسخه او نسختين او ثلاث مع ملاحظة انه سيتم طباعة فقط السجلات الغير محدد عليها علامة الصح لان التقرير مبني على الاستعلام QPRINT والذي به معيار اظهار السجلات الغير محدد عليها علامة صح .

بعد الانتهاء من عملية الطباعة نريد ان نزيل علامات الصح من امام الاختيارات في النموذج ليصبح في المرة القادمة جاهز لتلقي اوامر جديده لأوامر الطباعة بهذه العبارة

DoCmd.RunSQL "UPDATE TAB01 SET TAB01.PRINT = False;"

تذكر : انه يتم طباعة السجلات الغير محدد عليها علامة الصح

للتجربه : ضع علامة صح على جميع السجلات عدى واحد منها ثم ضع عدد النسخ 3 مثلا ثم اضغط زر امر الطباعة وانظر النتيجه

سيتم طباعة هذا السجل الغير محدد فقط 3 مرات

*. لا نحتاج الى الماكرو او الوحدة النمطية فقد تم ازالتها وتم معالجة هذا الامر بالكود كم داخل النموذج فقط

وهذا ملفك بعد التعديل

PReport_UP2.rar

السلام عليكم

الأخت

زهرة

الله يعطيكِ العافية

إن شاء الله المثال واضح

تحياتي الكبيرة لتعاونكِ

( الشاعر )

الاستاذه زهرة

لقد قمت بتجربة الكود الذى تفضلتى وعرضيه بخصوص عدة نسخ لقرير معين

ولكن المشكلة عند الضغط على زر الطباعة لاجراء هذا الكود تظهر شاشة قاعدة البيانات التى المفرض انها مخفيه

فهل يوجد حل لطباعة التقرير عدد من النسخ دون ظهور تلك الشاشه

up