عمل زر لطباعة عدة اوراق في اكسل

يمكن عمل ذلك باختيار الشيت ثم طباعته

و يكون الاختيار باسم الشيت كما فى الكود الاول

أو رقمه كما فى الكود الثاني

و هما لطباعة الثلاث شيتات فى الملف

أما الكود الاخير فهو لطباعة جميع أوراق العمل

مع ملاحظة أن يكون فى الورقة أي بيان قابل للطباعة ( ليست خالية )

Sub Print3Sheets()

    ActiveWorkbook.Worksheets("sheet1").Select

       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    ActiveWorkbook.Worksheets("sheet2").Select

       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    ActiveWorkbook.Worksheets("sheet3").Select

       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub



Sub Print3Sheets2()

    ActiveWorkbook.Worksheets(1).Select

       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    ActiveWorkbook.Worksheets(2).Select

       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    ActiveWorkbook.Worksheets(3).Select

       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub





Sub PrintAllsheets()

 For i = 1 To ActiveWorkbook.Worksheets.Count

  ActiveWorkbook.Worksheets(i).Activate

  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

 Next

End Sub

مع تحياتي

printsheets2.rar

و طبعا اذا أردت طباعة أول 20

تستخدم الكود الثالث مع استبدال

ActiveWorkbook.Worksheets.Count

ب 20

أما ان كانو متفرقين فعليك باول طريقتين ، مع كتابة السطرين لكل شيت

أو بالاصح نسخ السطرين 20 مرة مع تغيير اسم أو رقم الشيت

مع تحياتي

الف شكر اخي محمد يعطيك الف عافيه