طباعة الشهادات من عدد الى عدد معين

[salimhebboul]

طباعة اوراق  الشهادات من عدد الى عدد معين 

1.xlsx

[حسين مامون]

اخي الكريم 

اهلا وسهلا

جرب المرفق او انسخ الماكرو وضعه في ملفك  لعله ما تريد

Sub imrimer_tous()
  Dim sh As Worksheet
  Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> "رئيسة" Then GoTo 1
         sh.Range("a1:h15").PrintOut
1:   Next sh
  Application.ScreenUpdating = True
End Sub

 

طباعة جميع الشواهد.xlsm