Private Sub CommandButton2_Click()
Sheets("الشهادات").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$41"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
End Sub
ضع هذا الكود في زر امر جديد في الفورم
ابواحمد
اعذورونى اساتذتى لم اكن اعلم ان المرفقات من الضروريات لعرض الموضوع وانا اعتذر مرة اخرى
وان شاء الله لو فى اى استفسار سوف ارفق ملف لحضراتكم معه
وباذن الله تعالى عندما انتى من الشيت سوف ارفقه على الموقع ليستفيدبه غيرى لان العلم ليس ملك لى وانما هو هبه من الله
لجميع خله
فانا اعتذرة مرة ثانية اخى ابوأحمد ويا اخى أبوعبدالله