For x = 0 To listekutusu.ListCount - 1
KisiId= listekutusu.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir
' Yazdırma kodunuzu buraya yazın
Next
Bilgisayar olmadığından çalışmanızı inceleyemedim ama temel mantık asagidai gibidir