been working on my program for quite a while now and the only thing stopping me from completeing this work is printing out a search with the listview look the lines and so forth this is my code im useing now the search runs fine now i just need to get it to print any help will be great

/
Private Sub Command9_Click()
Close
Recordlen = Len(person)
Filenum = 1
Open "c:\program files\bondsman\info.dat" For Random As Filenum Len = Recordlen
Currentrecord = 1
Lastrecord = FileLen("c:\program files\bondsman\info.dat") / Recordlen
For a = 1 To Lastrecord
Get #Filenum, Currentrecord, person
recnumber = Trim(person.recnumber)
cfirst = Trim(person.cfirst)
cmiddle = Trim(person.cmiddle)
clast = Trim(person.clast)
chphone = Trim(person.chphone)
cssn = Trim(person.cssn)
cdob = Trim(person.cdob)
If msearch.Text = "" Then GoTo 1 Else

22
If msearch.Text = cdob Or msearch.Text = ray2 Then Text2 = Currentrecord
If msearch.Text = cdob Or msearch.Text = ray2 Then ListView1.ListItems.Add , , recnumber
If msearch.Text = cdob Or msearch.Text = ray2 Then ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , cfirst
If msearch.Text = cdob Or msearch.Text = ray2 Then ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , cmiddle
If msearch.Text = cdob Or msearch.Text = ray2 Then ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , clast
If msearch.Text = cdob Or msearch.Text = ray2 Then ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , chphone
If msearch.Text = cdob Or msearch.Text = ray2 Then ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , cssn
If msearch.Text = cdob Or msearch.Text = ray2 Then ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , cdob
Currentrecord = Currentrecord + 1
Next a
1
Close
End Sub code/