كيفية طباعة نسخ متعددة بعنوان مختلف لكل نسخة اوتوماتيكيا

احيانا يكون لدينا تقرير مهم جدا فى العمل ونحتاج ان نقوم بتوزيع هذا التقرير الى الاقسام الموجودة فى العمل مثل :

نسخة من التقرير الى السيد المدير العام
نسخة من التقرير الى السيد مدير شئون العاملين
نسخة من التقرير الى السيد مدير قسم الموارد البشرية
نسخة من التقرير الى السيد رئيس قسم الماهيات والمرتبات

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

هذا ماسنتعرف علية من خلال كود الاكسيل Excel VBA

فى هذا الكود نقوم بعمل مصفوفة نكتب فيها اسماء الاقسام التى نريد ان نقوم بتوجية التقرير الىها

ثم بعد ذلك نقوم بعمل حلقة تكرارية تقوم بكتابة اسم كل قسم فى عنوان التقرير اوتوماتيكيا

ثم بعد ذلك نعمل كود الطباعة الذى بدورة يقوم بعمل النسخ التى نريدها

الكود

Sub prnitmultireports()

Dim i As Long

Dim listprint As Variant

listprint = Array("مدير الدار", "المشرف العام", "مسئول الغياب", "شئون الطلبة", "مشرف الحلقة")

For i = LBound(listprint) To UBound(listprint)

Range("d2") = listprint(i)

ActiveSheet.PrintPreview

Next i

Range("d2:e2").ClearContents

End Sub

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

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

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

اذا عجبك الكود لاتبخل علينا بمشاركتة على وسائل التواصل الاجتماعى

لتحميل ملف العمل من هنا

عالم الاوفيس

مهاراة جميلة جدا فى الطباعة فى الاكسل طباعة نسخ متعددة بعنوان مختلف لكل نسخة اوتوماتيكياExcel VBA Code

كيفية طباعة نسخ متعددة بعنوان مختلف لكل نسخة اوتوماتيكيا

قد يعجبك ايضا