açılır liste yardımıyla oluşturulan sayfaları macro ile topluca yazdırmak

[can60excel]

https://drive.google.com/open?id=1Iffs5v1PubDaqZA7mWYaNmvj-I1AwrdP

Açılır liste yardımıyla bilgilerin çağrıldığı bir rapor sayfamız var. listedeki isimleri tek tek tıklamak ve yazdırmak gerekiyor. Makro ile bunu nasıl topluca yapabiliriz?

 

[PLİNT]

Merhaba
Örnek dosyadaki gibi yapabilirsiniz
http://www.dosya.tc/server11/vjk2v5/bke_rapor.zip.html
Kodlardaki kırmızı "186" veri doğrulamada olduğu içindir (doğrulamaya bağımlı olmadığı için) isterseniz artırabilirsiniz

Sub YAZDIR()
sor = MsgBox("Tümü Yazdırılsınmı?", vbYesNo)
If sor <> vbYes Then Exit Sub
For a = 22 To [COLOR="Red"]186[/COLOR]
Cells(6, "C") = Cells(a, "A")
ActiveSheet.PrintOut
Next
End Sub