اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

 

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

  • Like 1
  • تمت الإجابة
قام بنشر

مرحبا بك في أي وقت 

الاكواد كما يلي 

طباعة الصفحة الحالية  ( صفحة واحدة ) 

Sub print_1()
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub

 

طباعة كل الموظفين  ( ولعمل ذلك تم عمل عمود مساعد لوضع رقم مسلسل للموظفين )

Sub print_1()
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub


Sub print_all()
' الاعلان عن متغير من النوع الرقمي الصحيح
Dim x As Integer
'عمل حلقة تكرارية بديتها القيمة الموجودفي في الخلية ام 3 وتنتهي في الخلية ام 4
For x = [m3] To [m4]
'أمر الطباعة
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
        ' زيادة القيمة في الخلية بمقدار 1 للانتقال للشخص التالي
        [m3] = [m3] + 1
        ' تكرار التنفيذ
        Next
       [m3] = 1
       
End Sub

 

إذا كنت لا ترغب في العمود المساعد يمكنك عمل الرقم الوظيفي قائمة منسدلة ويمكنك الاطلاع على الرابط التالي 

 

الكود في الأساس للاستاذ بن عليه حاجي على ما أتذكر ( فقط تم توظيفه ليناسب طلب السائل )

 

الاداة التي تنقل بين أرقام الموظفين ( أداة تحكم )  لا يوجد بها كود فقط يمكن ضبطها من خلال خصائصها 

 

image.png.f9a7f35d44de9a8f91b11e29ae8b8245.png

 

 

 

 

 

طباعة الكل ومفرد.xlsm

  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information