اذهب الي المحتوي
أوفيسنا

امر طباعه


إذهب إلى أفضل إجابة Solved by أبو إيمان,

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

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
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information