Consulta e Imprime

JAVS
02 de Septiembre del 2003
Hola y grasias por su atencion, el problema es el siguiente:

Estoy haciendo un programa en Fox 6.0, es PRG, en este programa uno ingresa las calificacion es de los alumnos por bimestre y metreria, cuando el ciclo escolar termina se imprime la boleta el problema es de que hago primero es una consulta y si encunetra a la persona aparece un menu con tres opciones una de ellas es la de imprimir la boleta el problema es de que tengo que hacer dos veces la operacion para que imprima es decir que no impreme a la primera y despuedes de hacerlo como 5 veces ya no quiere imprimir, me manda un mensaje de Error en el administrador de coerencia y ya no imprime, tengo que reiniciar la maquina, ese es un problema, bueno esta es una idea de como esta estructurado el programa:

define window ventana from 1,1 to 50,100
activate window ventana
use base1
store space (50) to var1
@ 10,5 say "Nombre:"
@ 10,15 get var1
read
go top
seek var1
if found ()
@ 15,5 say calif_1
@ 17,5 say calif_2
@ 19,5 say calif_3
@ 21,5 say calif_4
store (0) to op
@ 23,5 prompt "Imprimir"
menu to op
do case
case op = 1
@ 5,5 say calif_1
@ 7,5 say calif_2
@ 9,5 say calif_3
@ 11,5 say calif_4
set printer to
set device to screen
end case
endif

el problema es de que en la pantalla le asigno coordenadas que yo quiero, pero a la hora de imprimir en la boleta las coordenas son otras y ya tengo las coordenas correctas pero no lo hace bien la maquina, espero que me ayuden...

Sam
02 de Septiembre del 2003
Esta es la ayuda de Fox, echale un vistazo:

Sintaxis

SET PRINTER ON [PROMPT] | OFF
– o bien –
SET PRINTER FONT cNombreFuente [, cTamañoFuente]
[STYLE cEstiloFuente]
– o bien –
SET PRINTER TO [NombreArchivo [ADDITIVE] | NombrePuerto]
– o bien –
SET PRINTER TO [DEFAULT | NAME NombreImpresoraWindows]
– o bien –
SET PRINTER TO NAME \NombreServidorNombreImpresora