بسم الله الرحمن الرحيم
كيف أقوم بالرد دون مشاهده الكود , هل ذلك أختبار ؟؟؟؟؟؟؟؟
شكرا على الرد الساخر و منك نستفيد
و للعلم فى حاله عدم استطاعتى تقديم المساعده أفضل الصمت
و مع ذلك تفضل الكود
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 ورقه
السلام عليكم