تعديل كود : طباعة أوراق محددة .. طباعة كل الشهادات

[أبو الخضر البعيثي]

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

ومشكلتي شرحها في ورقة العمل الثالثة بإسم : شرح المشكلة.

 

 

شهادات_1_طلاب.xls

[عبدالفتاح في بي اكسيل]

جرب هذا الكود اخي  ابو الخضر 

Sub print_sheet()
   Range("A4:w47").Select
   ActiveSheet.PageSetup.PrintArea = "A4:w47"
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

 

[أبو الخضر البعيثي]

خالص تحياتي لشخصك الكريم

[صالح ربيع]