For x = 0 To Metin11.ListCount - 1

K_id = Metin11.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir

  DoCmd.OpenReport "rpr_dallar", acViewPreview

DoCmd.PrintOut acPrintAll, , , , 1

DoCmd.Close acReport, "rpr_dallar"

 ekte uyguladım ama sadece id si 1 olanı liste kutusundaki kişi sayısı kadar yolluyor.Örneğin 4 kişi var.Ali iyi 4 ayrı rapor şeklinde yolluyor.