اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود لمنع طباعة الصفحات الخالية من البيانات عند طباعة التقرير


ahmed draz
إذهب إلى أفضل إجابة Solved by أبوبسمله,

الردود الموصى بها

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

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

رابط هذا التعليق
شارك

تفضل  بالتوفيق

 

في حدث "On NoData" اكتب
 

msgbox "لا توجد بيانات"
cancel=true

أو

MsgBox "لا توجد بيانات في التقرير", , "تنبيه"
DoCmd.CancelEvent
  • Like 1
رابط هذا التعليق
شارك

شكرا جزيلا لسرعة الرد 

ولكن هذه الطريقة لا تقوم بالمطلوب للاسف ... فأنا لا اريد أظهار رسالة أنا اريد ان لا يقوم التقرير بطباعة الصفحات الفارغة.

رابط هذا التعليق
شارك

سؤال التقرير فيه صفحات ممتلئة و صفحات فارغة

واذا كانت الاجابة التقرير لا يوجد بيانات 
اكتب مباشرة

DoCmd.CancelEvent
تم تعديل بواسطه محمد احمد لطفى
رابط هذا التعليق
شارك

سؤال التقرير فيه صفحات ممتلئة و صفحات فارغة؟

نعم

وعند وضع 

DoCmd.CancelEvent

عند الحدث On No data لا تظهر رسالة و يقوم بطباعة كل التقرير بصفحاته الفارغة سواءا على الطابعة أو على شكل PDF

تم تعديل بواسطه ahmed draz
رابط هذا التعليق
شارك

أخي الكريم اهلاً وسهلاً بك ,, وعتذر إن لم يحالفني الحظ بالمساعدة ..

ارسل مرفقك وأعاننا الله على الإفادة 😊

 

أو لعدم وجود مرفق ومشاركة مع الأساتذة كفكرة ، هل جربت استخدام الأمر HasData في التقرير ؟

إليك كمثال الكود التالي :-

 

If Me.HasData = False Then
Me.Visible = True
Else
Me.Visible = False
End If

 

تم تعديل بواسطه Foksh
رابط هذا التعليق
شارك

اخي العزيز Foksh

تحياتي لحضرتك... للأسف لم أفهم الفكرة وخصوصاً أنه عند الطباعة لايقوم إلا بطباعة ورقة واحدة فارغة من البيانات على الشكل التالي

و سأوضح أمرا لم اوضحة مسبقاً بأنه يوجد فرز بالأسم والمجموعة في التقرير لهذا تظهر الصفحات الفارغة

22-1.jpg

1111.jpg

1.pdf

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

 

تم تعديل بواسطه ahmed draz
رابط هذا التعليق
شارك

أحسنت أخي أبو بسملة:wow:

هذا هو المطلوب بالضبط وجزاك الله خيرا:clapping:

والشكر موصول لأخونا الاستاذ الفاضل Foksh

(ولكن لو تكرمت أوضحت لي مكان التعديل أو الإضافة) 

تم تعديل بواسطه ahmed draz
  • Like 1
رابط هذا التعليق
شارك

14 دقائق مضت, ahmed draz said:

أحسنت أخي أبو بسملة:wow:

هذا هو المطلوب بالضبط وجزاك الله خيرا

احسن الله اليك , واياكم

الحل كما ذكره لك اخى @kkhalifa1960 

ادخل لعرض تصميم التقرير ومنه ع مصدر السجلات وانظر تحت حقل المسلسل

بالتوفيق

رابط هذا التعليق
شارك

أخي الكريم أبوبسمله

لطفاً... ولو تكرمت وأوضحت لي المكان بالتفصيل لأني لا استطيع الوصول للتعديل

____________________________________________________________________________________

 

kkhalifa1960 مصدر التقرير استعلام وعند البارامتر المهم ضع تحته الشرط (Is NotNull)

أبوبسمله ادخل لعرض تصميم التقرير ومنه ع مصدر السجلات وانظر تحت حقل المسلسل

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information