I would do something like this:

i = 1
Do While .T.

	Select * From YourTable Where Reccno() > = i And Recno() <= i + 10000 ;
		Into Cursor YourCursorName
	i = i + 10000

	If Reccount( "YourCursorName" ) > 0
		Report Form MyReport To Printer
	Else
		Exit
	EndIf

EndDo

>>>My report prints telephone bills. There are more than 200,000 customers. When the print dialog comes up, it has a selection for All or Page from and to. in FROM it has 1 and in TO it has 9999. If I select ALL, it does not print beyond 9999 pages. If I put a value of more than 9999 in the TO field, it does not accept it.
>>
>>Abdul,
>>
>>Use the RANGE clause of the REPORT command repeatedly to print all the pages.

>>REPORT FORM MyReport TO PRINTER RANGE 1, 9999
>>REPORT FORM MyReport TO PRINTER RANGE 10000, 19999

>>and so on.
>
>Hi Cindy,
>
>The max value for the RANGE clause is 65,534. How would he print the rest of pages?