طلب وضع اكواد او داله لطباعة الشهادات

[محمد جابر محمد عبدالرحيم]

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

ملفات من تصميمى واريد وضع اكواد او داله لطباعة الشهادات بدلا من طباعة 3 فى كله مره

https://goo.gl/7li90X

[ابو عبدالبارى]

الأخ الكريممحمد جابر محمد عبدالرحيم

السلام عليكم

مرحبا بك فى هذا الصرح

تم التعديل على أحد ملفاتك جرب التعديل لعله يفى بالغرض ثم طبقة على باقى الملفات ونسألك الدعاء

Private Sub abo_abary()
k = Application.WorksheetFunction.Min(Sheets("ÇáÞæå").Range("f5:f1003"))
last = Application.WorksheetFunction.Max(Sheets("ÇáÞæå").Range("f5:f1003"))
For i = k To last Step 3
Range("a7") = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next

End Sub

http://www.mediafire.com/file/ws65ys3kt0omn1l/abo_abary_1الصـــف_الاول(3).rar