أستاذنا حاولت أضيف كود للطباعة لكنه لم يعمل معي: ممكن تصحيحه
Sub Print_All()
For r = 3 To Sheet1.Cells(Rows.Count, 1).End(3).Row
Sheet1.Range("P2") = Sheet2.Range("a" & r)
Sheet1.PrintOut Copies:=1
Next r
End Sub
يعني يطبع لي كل الصفوف في القائمة المنسدلة (خلية:
P2)