>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

For starters, please wrap code snippets in < pre > and < /pre > tags (without the embedded spaces.

Try this:

Select TableOrCursorToStoreResultsIn
x=1
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
enddo
COPY TO C:\phonebook\temp.dbf
Use C:\phonebook\temp.dbf In 0
select temp
browse

You can print the contents of Temp.Dbf most easily using a Quick Report, or use the LIST ... TO PRINT NOCONSOLE ... command.