Thanks but it still isnt working like it should. Now it is asking me for what file to put everything into with each record that I want to print into it. When your printing 2000 records that gets annoying :) Does anyone know of a way to print this into a data base file or txt file that works? I have been trying to get this working for a about 2 days and havent had much luck.

this is what the code currently looks like

do while x < thisform.pageframe.page3.list3.listcount
x=x+1
m.lastname = left(thisform.pageframe.page3.list3.list(x),3)
append from c:\phonebook\addresses for lastname = m.lastname
COPY TO C:\phonebook\temp.dbf
MODIFY FILE C:\phonebook\temp.dbf
use
enddo