FoxPro/Visual FoxPro - reporte urgente!!!!

estoy haciendo un reporte a punta de codigo o mejor dicho ya estaba hecho ahora hay que modificarle lo siguiente: se debe imprimir con una fuente mas pequeña, ahora como se puede imprimir de manera que los resultados sean mas pequeños?
ya probe con chr(15) y no resulto: de que manera lo haria?
gracias por au ayuda
aqui esta el codigo por si acaso es necesario:

***ESTE PROGRAMA IMPRIME EN NOMBRE DE LA EMPRESA, REPRES.LEGAL,CEDULA,ENTIDAD
***FECHA INSCRIPCION,FECHA VENCIMIENTO
SET CENTURY ON
SET DATE FRENCH
SET notify OFF
SET console OFF
SET TALK OFF
set delete ON
PAG = 0
l= 0
L=15
LIN = 0
CONT1 = 0
select vcons2

DO CASE
CASE vENT <> space(2)
SET FILTER TO ENTIDAD = vENT
OTHERWISE
SET FILTER TO
ENDCASE

GO TOP

SET CONSOLE OFF
SET DEVICE TO PRINTER PREVIEW
cPRINT = GETPRINT()
SET PRINTER TO NAME(cPRINT)
SET PRINTER FONT "COURIER NEW",10 STYLE "N"
STORE CHR(29) TO PEQ
DO WHILE !EMPTY(TRIM(cPrint)) .AND. !EOF()
DO WHILE .NOT. EOF()
STORE PAG+1 TO PAG
@ 0,0 SAY PEQ
@ 0,0 SAY "FUNDACION DE EDIFICACIONES Y DOTACIONES EDUCATIVAS"
@ 1,0 SAY "MINISTERIO DE EDUCACION CULTURA Y DEPORTES"
@ 2,0 SAY "ENTIDAD: "+VCONS2.ENTIDAD
@ 4,0 SAY "CODIGO"
@ 4,10 SAY "EMPRESA"
@ 4,31 SAY "REPRESENTANTE LEGAL"
@ 4,70 SAY "CEDULA"
@ 4,90 SAY "TELEFONO"
@ 6,0 SAY REPLICATE("-",97)
L=7
DO WHILE .NOT. EOF() .AND. L<60
@ L,0 SAY CODIGOIN+" "+NOMBRE+" "+REPRESLEGAL+" "+TRANSFORM(CEDULAREPRES,"@R A-999.999.999")+" "+;
TELEFONO
CONT1 = CONT1 + 1
L = L + 1
skip
ENDDO
L = L + 1
@ L,0 SAY "TOTAL EMPRESAS DE "+TRIM(VCONS2.ENTIDAD)+" = "+ALLTRIM(STR(CONT1))
*!* @ L,31 SAY CONT1
CONT1 = 0
ENDDO
ENDDO
set printer to
SET DEVICE TO SCREEN
RETURN

Checka las secuencias de escape que tiene tu impresora .

Por ahi vas a encontrar informacion muy utili de como.

Suerte

QUEDE EN LO MISMO!!!? DONDE PUEDO AVERIGUAR?? Y NO ME DA TIEMPO SIQUIERA DE VER LA IMPRESORA. Y DISCULPA
SALUDOS

Suerte entonces .... creo que tu lo que estas buscando es quien te soluciona tu problema no la solucion y disculpa por ser tan sincero

Suerte

Disculpa Ernesto, pero no es lo crees, en realidad no se donde realmente debo checar eso en la impresora, es en serio, de todos modos somos colegas y no es menester tratarnos de una manera despiadada de todos modos no estas obligado a hacerlo.
saludos,

Disculpas mil en ningun momento fue mi intencion tratarte como tu dices ..

de todos modos gracias y disculpa lo malo

saludos.