امر طباعه

[waleedsh3alan]

السلام عليكم اساتذتى الكرام

انا عايز امر طباعه للصفحه الاولى فقط مع الانتقال الى التسلسل التالى فى الجدول

وشكرا

w sh.xlsx

[أبو إيمان]

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

 

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

[waleedsh3alan]

شكرا جزيلا أبو إيمان

النقطه الثانيه

عند الضغط على التالى اريد الانتقال الى الرقم التالى فى الجدول المدرج

[أبو إيمان]

فضلا جرب المرفق

 

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

[waleedsh3alan]

شكرا جزيلا أبو إيمان على اهتمامك وعلى المجهود الرائع

ولكن  الكود غير موجود

وارجو منكم ادراج الكود حتى اتعلم كيف تم هذا العمل الرائع

[أبو إيمان]

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

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

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

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

 

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

 

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

 

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

 

 

 

 

 

 

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

[waleedsh3alan]

شكرا استاذى الفاضل أبو إيمان

والاستاذ الفاضل بن عليه حاجي

 

[أبو إيمان]

موفق إن شاء الله