Image كود: طباعة بطاقات الصنف لعدة سنوات وعدة أصناف

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

فكرة هذا الكود تقوم على وجود مصنف اكسيل به ورقتين
الورقة الأولى و اسمها Items
و بها ارقام الاصناف في العمود A
و اسماء الأصناف بالعمود B
و عدد الأصناف يفوق ال 300 صنف
و يوجد لدينا في الورقة الثانية Item Card
بطاقة صنف فارغة
نريد وضع التاريخ في الخلية C1 و الذي يمثل احدى السنوات من عام 2005 و حتى 2010
و في الخلية B2 رقم الصنف
و الخلية B3 اسم الصنف
و من ثم طباعة بطاقة الصنف
و ثم نغير السنة
حتى يتم طباعة 6 بطاقة للصنف الواحد و هي تمثل السنوات
و ثم الصنف التالي و نفس العملية
و هكذا حتى نقوم بهذه العملية لكل الاصناف
و لعمل ذلك بطريقة مختصرة و سريعة قمت بعمل هذا الكود

Sub Excel4Us()
Dim c As Range, ws As Worksheet, LR As Long, MyYear()
LR = Sheets("Items").Range("a" & Rows.Count).End(xlUp).Row
Set ws = Sheets("Item Card")
MyYear = Array("2005", "2006", "2007", "2008", "2009", "2010")
For Each c In Sheets("Items").Range("a2:a" & LR)
  For i = LBound(MyYear) To UBound(MyYear)
        With ws
.Range("c1").Value = MyYear(i)
 .Range("b2").Value = c.Value
 .Range("b3").Value = c.Offset(, 1).Value
 .PrintOut
 End With
  Next i
Next c
End Sub

_________________

دمتم في حفظ الله