طباعة أكثر من شيت فى الاكسيل

يرجي مراعاة قواعد طرح الاسئلة من حيث العنوان - تم تعديله

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

و ذلك باختيار أول شيت و ضغط شيفت ثم اختيار الاخير

أو اختيار اسم الشيت من الاسفل ثم من الزر الايمن للماوس - اختيار الكل

ثم طباعة

أم تريد ذلك بالكود .؟؟

اخي لعل هذا ما تبحث عنه او قريب منه

  Sheets("ورقة1").Select

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

    Sheets("ورقة2").Select

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

ضع هذا الكود في امر CommandButton لم اجرب هذه الطريقة عمليا لاني لا املك طابعه حاليا لكن اعتقد انها ستطبع اكثر من شيت حسب العدد المعطىهذا الكود استنبطته من الماكرو نفسه

بسم الله الرحمن الرحيم

اشكركم جزيل الشكر يا اخوتي الاعزاء في هذا المنتدى الرائع

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

و كل الاحترام و التقدير الى اخي العزيز عبد الوهاب على اجابته القيمة و لكم مني كل الاحترام و التقدير وفقكم الله فيما يحبه و يراعاه

اخوكم المخلص لهذا المنتدى العريق

phantom :)

ان أردت طباعة الكل

For i = 1 To ActiveWorkbook.Worksheets.Count

  ActiveWorkbook.Worksheets(i).Activate

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

 Next

شكرا لك اخي محمد

لقد غمرتني بكرمك و حرصك على الافادة النموذجية و المساعدة الحقيقية

و شكرا لك يا باش مهندس ;)

و إن شاء الله سوف ابذل كل الجهد في جعل هذا المنتدى المتميز يكون افضل المنتديات على الاطلاق

شكرا لك أخي الكريم

و فى انتظار مشاركاتك