بسم الله الرحمن الرحيم 
 
 
 
   
كيف أقوم بالرد دون مشاهده الكود , هل ذلك أختبار ؟؟؟؟؟؟؟؟ 
شكرا على الرد الساخر و منك نستفيد 
و للعلم فى حاله عدم استطاعتى  تقديم المساعده أفضل الصمت 
 
و مع ذلك تفضل الكود 
 
 
Sub sPrint()
Dim cont As Integer
    cont = 2
    Do While cont <= 8000
    [N1].Value = cont
    Sheets("ورقة2").PrintOut Copies:=3
    cont = cont + 1
    Loop
End Sub
 
 
ملحوظه للجميع 
 
هذا الكود يقوم بطباعه 8000 ورقه 
 
 
 
السلام عليكم