FoxPro/Visual FoxPro - MEMORIA INSUFICIENTE AL IMPRIMIR

Hola a todos, cuando imprimo mas de 20 registros muestra este error "Memoria Insuficiente" luego presiono no enviar y se cierra el programa, la tabla tiene como 30,000 registros, el procedimiento es una busqueda por codigo del registro y luego lo imprimo; lo que necesito es como hacer para liberar la memoria o ya no salga este mensaje; la pc tiene 500mb de momoria, y el programa es pequeño este es mi codigo para imprimir que utilizo en un boton,

SET date to dmy
SET safety off

IF empty(thisform.text7.value)
=messagebox("Seleccione el numero de orden en la tabla el cual desea imprimir",32,"Mensaje del sistema")
thisform.grid1.setfocus
ELSE

IF messagebox("Si realizo cambios no olvide actualizar la informacion antes de imprimir"+chr(10)+"Desea Imprimir el registro:",36,"Mensaje del Sistema")=6

SELEC * from consultas where item = thisform.text11.value into table C:\informes\temp\reg

REPORT form info\examen preview

USE IN reg

thisform.grid1.recordsource =" "
thisform.grid1.refresh

IF thisform.grupo2.option1.value=1
SELEC tod_apo1
USE IN tod_apo1
ENDIF

IF thisform.grupo2.option2.value=1
SELEC tod_apo2
USE IN tod_apo2
ENDIF

ENDIF
ENDIF

Gracias de antemano por quien me pueda apoyar

La cuestión, no es cuantos registros tiene la tabla, sino cuantos registros son los que terminan en el reporte, pero bien podría ser falta de espacio en el disco duro.
La otra podría ser la memoria virtual de Windows. Depende del sistema y características de tu equipo.
Comenta, para analizarlo a fondo.


500Mb de Disco Duro o 512Mb de Ram?? ambos son importantes en este caso.

Muy poca memoria veo yo.

Pregunta importante: ¿tu reporte incluye imágenes? Apuesto a que sí, y muchas de ellas de tamaño considerable.

Para problemas de escasez de memoria, puedes utilizar esta rutina antes de mandar el reporte
SELEC * from consultas where item = thisform.text11.value into table C:\informes\temp\reg
ReduceMemory()
REPORT form info\examen preview