"ما الخطا فى هذا الكود " طباعة كل ارقام الجلوس

[ahmed88872]

 "ما الخطا فى هذا الكود " طباعة كل ارقام الجلوس

حيث انه يعمل باستمرار ولا يقف

ارجو تصحيح الخطا بالكود و توضيحه 

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

111.rar

[سليم حاصبيا]

استبدل الكود بهذا

Sub all()
'

'
Range("a1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do Until ActiveCell.Row > 50
ActiveCell = ActiveCell.Offset(14).Select
ActiveWindow.SelectedSheets.PrintOut
Loop
Range("a1").Select
End Sub

 

[ahmed88872]

جزى الله الاخ سليم كل خير ولكن الكود لا ينفع 

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

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

جرب الكود التالي:

Sub all()
Range("A1").Select
ActiveCell = 1
Do
ActiveWindow.SelectedSheets.PrintOut
ActiveCell = ActiveCell + 14
Loop Until ActiveCell.Value > Range("E2").Value
Range("A1").Select
End Sub

بن علية حاجي

[ahmed88872]

جزاك الله خيرا أخى بن علية حاجي 

نفع الكود الله يبارك فيك