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

محمد رفعت 2014 · مايو 4, 2014

أخواني الأحباب أرجو منكم أن تخبروني كيف اعمل كود طباعة لعدد من الصفح في تقارير مختلفة و بتراتيب مختلفة حيث ان عندي طابعة دوت ماتركس ابيسون و تطبع من اليسار لليمين و لإستخراج الكشوف بترتيبها من تقارير مختلفه احتاج لكود ليكون ترتيب التقارير كما يلي :
طباعة تقرير (استقطاعات ) كشف رقم 14
ثم طباعة تقرير ( استقطاعات ) كشف رقم 13
ثم طباعة تقرير ( استحقاقات ) كشف رقم 14
ثم طباعة تقرير ( استحقاقات ) كشف رقم 13
ثم طباعة تقرير ( استقطاعات ) كشف رقم 12
ثم طباعة تقرير ( استقطاعات ) كشف رقم 11
ثم طباعة تقرير ( استحقاقات ) كشف رقم 12
ثم طباعة تقرير ( استحقاقات ) كشف رقم 11
.
.
.
..
و هكذا حتى طباعة الكشف الأول من كل تقرير
و مرفق طيه قاعدة البيانات برجاء وضع الكود في زر أمر طباعة في النموذج الوحيد المرفق لتسهيل الوصول إليه
و تفضلوا بقبول فائق الإحترام

Staff salaries 11.rar

محمد رفعت 2014 · مايو 6, 2014

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

**ابو ياسر** · مايو 7, 2014

DoCmd.PrintOut acPages, pageFrom, pageTo, acHigh, 1, False

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

استبدل pageFrom برقم صفحة البداية و pageTo برقم صفحة النهاية

محمد رفعت 2014 · مايو 7, 2014

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

تم تعديل مايو 7, 2014 بواسطه m1941968

**ابوخليل** · مايو 9, 2014

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

اما مسألتك فإنها محلولة بإذن الله

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

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

السؤال : هل عدد الصفحات دوما 14 ام انها تزيد وتنقص حسب البيانات المدخلة وحسب الظروف ؟

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

بانتظارك ...

**ابوخليل** · مايو 9, 2014

سأعرض الحل هنا مع توضيح بعض النقاط المهمة

فالجملة البرمجية التي تستخدم لفتح ثم طباعة الصفحات المحددة من التقرير

DoCmd.OpenReport stDocName, acPreview
DoCmd.PrintOut acPages, pageFrom, pageTo

لا تقوم بالمهمة كما ينبغي وكما رسمت له

فمن المعلوم ان تنفيذ هذا الكود سيكون من خلال النموذج

لذا يصعب التنفيذ بل يمتنع وتظهر بعض العقبات غير المتوقعة فمنها :

- طباعة النموذج بدلا من التقرير وقد يتم طباعة الاثنين معا

- عدم طباعة الصفحات المحددة وانما يتم طباعة الجميع

- هذا الكود يقوم بفتح التقرير وهذه مشكلة بحد ذاتها

حيث يستلزم اخفاؤه او تصغيره ثم غلقه

وهل هناك بديل ؟ نعم

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

والحل سطران فقط ومن اراد الزيادة فعليه ان يكررهما ما شاء

الاول يقوم بتحديد التقرير لا فتحه

DoCmd.SelectObject acReport, "استقطاعات", True

والثاني لطباعة الصفحات المحددة

DoCmd.PrintOut , 14, 13, , 1

رقم 1 يمثل عدد النسخ

في المرفقات تحقيق وتطبيق

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

محمد رفعت 2014 · مايو 9, 2014

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

محمد رفعت 2014 · مايو 10, 2014

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

و يبقى اخي الحبيب ان تدلني علي كود يكتب في حالة تغير عدد الصفحات فقد يكثر عددها ليصل العشرين أو يقل عن ذلك فما ترى الحل لذلك

و لك منى جزيل الشكر

**ابوخليل** · مايو 10, 2014

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

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

فلو فرضنا ان لديك تقريرين كل واحد منهما يحتوي على 100 صفحة وتريد ان تبدأ الطباعة من الصفحة رقم 20 تنازليا

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

افتح محرر الفيجوال والصق الوحدة النمطية التالية :

Function PrintDscOrder(Rep1 As String, Rep2 As String)
Dim PgNum As Integer, _
PgNum2 As Integer, PagesCnt As Integer  'اعلان عن متغيرات رقمية تمثل مجمل الصفحات وارقام الصفحات المحددة
PagesCnt = Me.RepageCnt.Value           'مجمل الصفحات = قيمة الحقل في النموذج
For PgNum = PagesCnt To 1 Step -2       'دوارة تنازلية زوجية
PgNum2 = PgNum - 1            'تحديد رقم الصفحة الثانية وهي هنا اقل من الحالية بواحد
DoCmd.SelectObject acReport, Rep1, True   'تحديد التقرير الأول
DoCmd.PrintOut , PgNum, PgNum2, 1        'طباعة الصفحات المحددة
DoCmd.SelectObject acReport, Rep2, True  ' تحديدالتقرير الثاني
DoCmd.PrintOut , PgNum, PgNum2, 1         'طباعة الصفحات المحددة
Next PgNum                                'عودة لبداية الدوران
End Function                               'تصميم وترتيب ابوخليل

وفي حدث بعد النقر لزر الطباعة الصق السطر التالي :

Call PrintDscOrder("استقطاعات", "استحقاقات")

طباعةالصفحات تنازليا من تقريرين.rar

محمد رفعت 2014 · مايو 10, 2014

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

بفضل الله ادخلت الكود الاول علي البرنامج و استجاب و سارت الأمور كما اتمنى فلك مني جزيل الشكر

و لأن من طبعي الطمع فلقد حملت الكود الثاني أيضاً لدراسته و التعلم من علمكم الوافر فلكم مني جزيل الشكر

**ابوخليل** · مايو 10, 2014

الحمد لله ،،، هذا من فضله

وشكرا على مشاعرك الطيبة

فلقد حملت الكود الثاني أيضاً لدراسته

الكود الثاني افضل بلا شك وليس هناك وجه مقارنه بينه وبين الأول

محمد رفعت 2014 · مايو 11, 2014

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

محمد رفعت 2014 · مايو 11, 2014

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

Private Sub تقرير_Click()