تقرير واحد يحتوي على صفحتين ( كيف اطبعه على ورقة واحدة على وجهين ) ؟

[jandbi]

السلام عليكم ..

ارفقت مثال بسيط لتقرير يحتوي على صفحتين ..

ارغب بعد طباعة الصفحة الاولى ان تظهر رسالة MsgBox تحتوي على زر ( موافق ) .. وعند الضغط على زر موافق تطبع الصفحة الثانية .. وهكذا .. << ( بهالطريقة ممكن اتركه يطبع الاوراق منفردة بالضغط على زر موافق كل مرة .. أو بعد كل طباعة ورقة اقلبها في الطابعة واضغط زر موافق ليطبع في الخلف )

ولو كان التقرير يحتوي على صفحة واحدة فقط لا يظهر الرسالة ..

بحثت عن حلول ولم اجد الا اكواد تختص بطباعة تقريرين على ورقة واحدة بوجهين

print report 2 paper.zip

تم تعديل يناير 12, 2016 بواسطه jandbi

[ابوخليل]

عليكم السلام

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

وان كانت غير محصورة بعدد فسيظهر اشكالية للمستخدم  وهي :

  لنفرض ان التقرير 30 صفحة او اقل او اكثر  والمستخدم يريدها في صفحات منفردة

هنا يلزم التعاقد مع  موظف خاص للنقر على موافق  

[jandbi]

في برنامجي اكبر عدد للصفحات في التقارير هو صفحتين فقط ..

[ابوخليل]

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

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

 مع الاخذ بالاعتبار  تغيير اسم التقرير بالاسم الذي في برنامجك

DoCmd.OpenReport "RepName", acViewPreview, "", "", acNormal
DoCmd.PrintOut acPages, 1, 1, acHigh, 1, True
If MsgBox("اقلب الورقة ان كنت تريد الطباعة في الخلف", vbOKOnly, "") = vbOK Then
 DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True
 Else
 DoCmd.PrintOut acPages, 2, 2, acHigh, 1, True
 End If
DoCmd.Close acReport, "RepName"

 

[jandbi]

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

الكود نجح بالعمل ..

تم تعديل يناير 13, 2016 بواسطه jandbi