FoxPro/Visual FoxPro - Impresion de cheques en formulario continuo

Wprn = GETPRINTER()

        ****** par tomar la impresora en la rede

        If Empty(Wprn)

           MessageBox('Impresion Cancelada!!!',16,'JJ-System')

           Return

        EndIf

        SET PRINTER To Name "&Wprn"

        SET DEVICE TO printer

        SET PRINTER FONT 'Courier New',12

        ??? CHR(18)

        ***** esto lo utilizo para quitar el control de la impresora a windows y darsela a mi sistema asi puedo hacer lo que quiera

        SET CONSOLE OFF

         DO WHILE !EOF()

              @Prow()+1,01 Say Alltrim(SubStr(Cuenta,1,12))

              @Prow()+0,15+len(Alltrim(SubStr(Cuenta,1,6))) Say Alltrim(SubStr(detalle,1,30))

              @Prow()+0,77 Say Alltrim(SubStr(Status,1,1))

              =inkey()

              If LastKey() = 27

                  Que = MessageBox('Esta seguro que quieres detener el reporte',4+32,'JJ-System')

                 If Que = 6

                     @Prow()+1,1 Say "Reporte interumpido por el Usuario"

                     keyboard chr(13)

                    =inkey()

                    Exit

                EndIf

          EndIf

    SKIP

 ENDDO

 @Prow()+1,0 Say Replicate("-",80)

 @Prow()+3,1 Say Replicate("-",40)

 @Prow()+1,1 Say "Realizado por:"

 @Prow()+1,1 Say Wusuario

 @Prow()+1,0 Say " "

    Eject

 SET PRINTER TO

 SET PRINTER OFF

 SET DEVICE TO SCREEN

 SET CONSOLE ON

Return