كود اغلاق التقرير بعد امر الطباعة

Public Function Close_all_open_report()
Dim rpt As Object
For Each rpt In Application.CurrentProject.AllReports
On Error Resume Next
DoCmd.Close acReport, rpt.Name, acSaveYes
Next
End Function

الكود يغلق كل التقارير المفتوحة حاليا

لو أغلقت التقرير بعد أمر الطباعة

لن يتم طباعته

و الحيلة أن تجعل رسالة قبل الإغلاق

ريثما يتم نقل البيانات للطابعة

kemas كتب:

Public Function Close_all_open_report()
Dim rpt As Object
For Each rpt In Application.CurrentProject.AllReports
On Error Resume Next
DoCmd.Close acReport, rpt.Name, acSaveYes
Next
End Function

الكود يغلق كل التقارير المفتوحة حاليا

لو أغلقت التقرير بعد أمر الطباعة

لن يتم طباعته

و الحيلة أن تجعل رسالة قبل الإغلاق

ريثما يتم نقل البيانات للطابعة

دائما يا اخي اجابتك تحتاح الي سؤال اين يوضع الكود وما هي الرسالة

السلا م عليكم

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

 99-Print Report by button on paper then close.rar

والله يا اخي حتي مثالك ما عمل شي ولاطبع ولا اغلق التقرير بعد الطباعة

ممكن تدرج لنا قاعدة البيانات الخاصة بحضرتك لنحاول عمل الازم....أخوك سامح

sameh_awad كتب:

ممكن تدرج لنا قاعدة البيانات الخاصة بحضرتك لنحاول عمل الازم....أخوك سامح

هذه قاعدة البيانات يا اخي

db2.rar

اخى  الفاضل المثال الذى ادرجته ليس فيه تقرير

sameh_awad كتب:

اخى  الفاضل المثال الذى ادرجته ليس فيه تقرير

انا اسف جدا يا أخي الملف به تقرير ولكن اظهر الملفات المخفية

انا اسف جدا يا أخي الملف به تقرير ولكن اظهر الملفات المخفية

جرب أخى الفاضل 

db2.rar

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

هذا واجب علىَّّ .....معاينة الطباعة لا يظهر فيها الزر لكن لابد من ضبط التقرير على Report  و ليس Print Preview حتى يظهر الزر