طباعة أوراق عمل متعددة بالكود

[محمد طاهر عرفه]

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

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

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

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

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

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

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