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

[ويكا100]

اريد كود فرضا عندى الخلية A1

 

اريد ان يكتب بها 1 ثم  طباعة ثم 2 ثم طباعة و هكذا الى رقم 500 ما هو الكود

تلقائيا عند تشغيل الكود

تم تعديل مايو 30, 2017 بواسطه ويكا100

[بن علية حاجي]

السلام عليكم ورحمة الله

مثل هذا:

Sub Print_All()
Dim I As Integer
For I = 1 To 500
  Range("A1") = I
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next I
End Sub

بن علية حاجي

[ويكا100]

جزاك الله كل خير