FoxPro/Visual FoxPro - Set device to screen

Saludo a todos,

1.- Amigos, lo único que me falta para usar mi programa es que cuando imprimo con un reporte echo a base de código este me daña toda el formulario y tengo que salir y entrar nuevamente.

Quiero que imprima y no se vea nada en pantalla.

Hago esto

SET PRINTER ON
SET DEVICE TO PRINTER

Y al final digo:

SET DEVICE TO SCREEN

Imprime bien pero tengo ese problema.

2.- Si saben algún truquito:
Quiero que mi programa busque algo específico de la pc, para que nadie lo pueda correr en otro equipo sin mi autorización.

gracias

1. set console off

2. - justamente pase por eso hace unas 2 semana atras.
- Idenitificar el Serial del disco duro.
- Codificar el serial y mostrarlo al usuario
- El usuario debe contactarse contigo y darte ese numero de serial codificado
- En otro programita aparte , decodificas el serial, le recontra codificas con algun algoritmo, y luego le entregas al cliente para que lo inserte en su programa.
- Esa clave que tu le entregas al cliente, el programa lo guarda en una tabla, o archivo texto.
- Al inicio del programa, coges esa clave, lo decodificas y lo comparas con el serial del disco duro. Solo entonces le permites pasar al resto del programa, de lo contrario se sale y muestras un mensaje que diga "debe contactarse contigo e insertar la clave de activacion."

FUNCTION F_SERIAL_HDD
*-- N¨²mero de Serie del disco Duro:
oFS=CreateObject('scripting.filesystemobject')
nroser = oFS.Drives('d').SerialNumber
cSerie =ALLTRIM(str(nroser,20))
RETURN cSerie

nota: no me acuerdo de donde lo tome, pero tiene su propio autor.

Hola... yo anduve renegando mucho para hacer lo mismo que vos queres hacer... y lo solucione asi...


imprimir los @ say...

y luego cuando termines de imprimir todo...