ارجو مساعدة في عمل طباعة محددة

[خالد المصـــــــــــرى]

عمل طباعة محددة فى ورقة ارقام الجلوس وكشوف المناداة

 

 

تم تعديل يونيو 6, 2023 بواسطه خالد المصـــــــــــرى

[ابوحبيبه]

السلام عليكم

اليك الطريقة بعد التعديل على الملف فى صفحة ارقام الجلوس2

Private Sub CommandButton1_Click()
    Range("e2").Select
    ActiveCell.FormulaR1C1 = "1"
         ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
           Do
    ActiveCell = ActiveCell + 10
    ActiveWindow.SelectedSheets.PrintOut
    If Range("e2").Value >= 20 Then Exit Sub
 Loop Until ActiveCell.Value = Range("p10").Value
Range("A1").Select
End Sub

يرجي وضع الاكواد بين اقواس

طباعة_1.xlsm

[خالد المصـــــــــــرى]

بارك الله فيك