FoxPro/Visual FoxPro - Numero de Copias no responde

Hola... buenos dias... quisiera me pudieran ayudar el codigo que tiene un boton... de un formSet con un form llamado Facturacion se trata de NUMERO DE VECES A IMPRIMIR EL REPORTE... pero al ejecutarlo ... no responde... envia muchos reportes... no obedece al valor de la variable ncop y no responde el bucle.. yo tengo.. esto... cabe indicar que el reporte lo estoy mandando a codigo Say@

Mensaje='DESEA IMPRIMIR LA FACTURA No. '+STR(nFolio)
Titulo='Facturacion'
LOCAL opci1
opci1=MESSAGEBOX(Mensaje,4 + 64 + 256,titulo)
DO CASE
CASE opci1 = 6
LOCAL ncop
ncop=INPUTBOX('Introduzca el numero de Copias a imprimir..')
ncop=INT(VAL(ncop))
FOR x= 1 TO ncop
ThisformSet.pfactura() &&codigo SAY@ O prow()+x.y
endfor
CASE Opci1 = 7
MESSAGEBOX("Se ha omitido la Impresion de la Factura")
ENDCASE

Si alguien tiene una mejor idea de como ingresar el numero de copias..
Gracias...
Saludos a todos...

USA ESTO;

REPORT FORM TU_REPORTE.frx NOCONSOLE TO PRINTER PROMPT PREVIEW

ASI SELECCIONAS NUMERO DE COPIAS.

SALUDES

USA ESTO;

REPORT FORM TU_REPORTE.frx NOCONSOLE TO PRINTER PROMPT

ASI SELECCIONAS NUMERO DE COPIAS.

SALUDES

Hola... lo que pasa aqui es la impresion no sale a travez de un reporte diseñado sino que sale a travez de comandos say@... y no llama a ningun reporte frx.. sino que es un procedimiento elaborado asi...

ncop=InputBox('numero de veces..')
ncop=Int(Val(ncop))
for ncop= 1 to ncop
procedure funciones
=Imprime()
EnFor

****funciones.PRG tengo esto
function imprime
set printer
SET CONSOLE OFF
SET printer on
SET DEVICE TO PRINTER
SET PRINTER FONT "Arial",8
@prow()+1,2 say "nombre empresa"
@prow()+1,2 say "domicilio
@prow()+1,2 say "xxxxx
select facturas
set filter to folio=nFol
Go Top
do wile !Eof()
@prow()+1,2 say cant
@prow(),20 say descrip
@prow(),50 say precio
@prow(),80 say improrte
etc.
Enddo
@PROW()+35-cl,22 say nump
@PROW()+2.5,145 SAY nstotal pict '$ 999,999.99'
@PROW()+2,145 SAY niva pict '$ 999,999.99'
@PROW()+2,145 SAY ntotalgral pict '$ 999,999.99'
SET PRINTER TO
SET CONSOLE ON
SET DEVICE TO SCREEN
Return