اخى ًصالح حمادى اسف لاتعابك معى ولكن اريد ان اضيف علامة صح بجوار كل اسم  لاقوم بتحديد الاسماء التى سيتم طباعتها  
 
	ما قد وصلت اليه  Dim strCriteria As StringDim varItemsSelected As Variant    If Me.YourListBox.ItemsSelected.Count = 0 Then        MsgBox "You must select at least one record."        Exit Sub    End If       For Each varItemsSelected In Me.YourListBox.ItemsSelected        strCriteria = strCriteria & "," & Me.YourListBox.ItemData(varItemsSelected)    Next varItemsSelected    strCriteria = Right(strCriteria, Len(strCriteria) - 1)    DoCmd.OpenReport "YourReport", acViewPreview, , "YourID IN(" & strCriteria & ")"