لكتابة اوامر طباعة متسلسلة

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

اخواني الاحباب اصابني الاحباط من طول الانتظار فرجاء افيدوني في طلبي و لكم مني جزيل الشكر

لليوم الثالث علي التوالي انتظر اخواني لعل المانع خير

لليوم الرابع علي التوالي انتظر اخواني لعل المانع خير

لليوم الرابع علي التوالي انتظر اخواني لعل المانع خير

لليوم الخامس علي التوالي انتظر اخواني لعل المانع خير

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

يا ترى اخواني مطنشين الرد عليا ليه

اقتباس

 

يا ترى اخواني ليه مش عايزين يتعاونوا معي في هذا الأمر ؟؟؟

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

هههههه

يا باشا محدش يقدر يطنشك

للأسف لا توجد عندي طابعة

لكن جربت على المعاينة

استحقات كشف 6 ثم 5 ثم استحقاقات كشف 6 ثم 5

ويمكنك التعديل والاضافة

وعندك دالة للطباعة ودالة للاستراحة

Private Sub Command297_Click()

Rep = "استقطاعات"
Pay = 6
Call prt
Call S
DoCmd.Close acReport, Rep

Rep = "استقطاعات"
Pay = 5
Call prt
Call S
DoCmd.Close acReport, Rep

Rep = "استحقاقات"
Pay = 6
Call prt
Call S
DoCmd.Close acReport, Rep

Rep = "استحقاقات"
Pay = 5
Call prt
Call S
DoCmd.Close acReport, Rep


End Sub

Private Sub S()
Dim PauseTime, Start, Finish, TotalTime
    PauseTime = 3
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    Loop
    Finish = Timer
    TotalTime = Finish - Start
 End Sub

Private Sub prt()
DoCmd.OpenReport Rep, acViewPreview, Hidden, "[رقم الكشف] = " & Pay & ""
DoCmd.PrintOut acPages, , , acHigh, 1
End Sub

جرب وأخبرني بالنتيجة

Staff salaries 12.rar

أخي الحبيب شاكراً لك محهودك و تعاونك معي و وقتك الثمين 

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

و جزاكم الله خيراً

و احسن اليكم 

و نفع بعلمكم

نعم أعرف

إنه كود أستاذنا / أبو خليل

ودائما هو مبدع ، وسباق للمساعدة ، جزاه الله خيرا

و لكن يا استاذنا الفاضل الحق أقول عندما جربت الكود المرسل منك و رأيت التقارير تفتح و تغلق من تلقاء نفسها كان ذلك مبهراً لكل من شاهده فجزاكم الله خيرا

و لو تتفضل حضرتك و تعلمني كيف اكتب الكود في صفحة المنتدى فيظهر بمظهره الذي ظهر  به كودك بدون مشكلة تعريب الاكواد التي ظهر الكود الذي كتبته بها

يا باشا متشكرين

أنا مازلت في بداية طريق الأكسس

بالنسبة للعربي كانوا 5 كلمات كتبتهم بعد ظهورهم المشفر

لذلك أتوجه بسؤالك للأساتذة المشرفين  :

هل من الممكن لصق الكود المحتوى لغة عربية فيظهر العربي مباشرة أم هناك طريقة معينة ؟

وبالمناسبة :

حاول تتجنب استخدام الحروف العربية في التسميات

دي أحيانا في الكود بتعمل مشكلة في فهمه وفي تعديله

وكمان ممكن على نظام تشغيل لا يدعم العربي في اعداداته الاقليمية أن تسبب أخطاء