FoxPro/Visual FoxPro - me imprime fondo negro con letras en blanco

mi problema es el siguiente este codigo es un reporte de una nota salida-ingreso-devoluciones, que forma parte de en un programa de control de almacenes al imprimir solo me manda un fondo negro con las letras blancas e aca el codigo

***************************************************************************
* imprimir *
***************************************************************************

PROCEDURE imprimir
close all
set date briti
use transac2 index vale &&vale+tv
tvfid=" "
valefid=" "
costot=0
clear
@ 10,10 say "Tipo de vale : " get tvfid pict "!" valid tvfid $ "ISD"
@ 12,10 say "Numero de vale : " get valefid pict "!!!!!!"
read
if asc(tvfid)=32 .or. asc(valefid)=32
return
endif
seek valefid+tvfid
if found()
wait "Tenga lista su impresora [Enter]"
set device to print
@ prow(), 1 say "EQUUS SRL."
@ prow(),73 say date()
do case
case tvfid="I"
@prow()+2,30 say "INGRESO DE MATERIALES"
@prow()+1,30 say "======= == =========="
case tvfid="D"
@prow()+2,28 say "DEVOLUCION DE MATERIALES"
@prow()+1,28 say "========== == =========="
case tvfid="S"
@prow()+2,30 say "SALIDA DE MATERIALES"
@prow()+1,30 say "====== == =========="
endcase
else
? chr(7)
wait "No existe ese vale"
PROCEDURE imprimir
close all
set date briti
use transac2 index vale &&vale+tv
tvfid=" "
valefid=" "
costot=0
clear
@ 10,10 say "Tipo de vale : " get tvfid pict "!" valid tvfid $ "ISD"
@ 12,10 say "Numero de vale : " get valefid pict "!!!!!!"
read
if asc(tvfid)=32 .or. asc(valefid)=32
return
endif
seek valefid+tvfid
if found()
wait "Tenga lista su impresora [Enter]"
set device to print
@ prow(), 1 say "IMPORTADORA MAYO"
@ prow(),73 say date()
do case
case tvfid="I"
@prow()+2,30 say "INGRESO DE MATERIALES"
@prow()+1,30 say "======= == =========="
case tvfid="D"
@prow()+2,28 say "DEVOLUCION DE MATERIALES"
@prow()+1,28 say "========== == =========="
case tvfid="S"
@prow()+2,30 say "SALIDA DE MATERIALES"
@prow()+1,30 say "====== == =========="
endcase
else
**? chr(15)
? chr(7)
wait "No existe ese vale"
return
endif
@ prow()+3, 1 say "ALMACEN : REPUESTOS"
@ prow() ,35 say "FECHA : "+dtoc(fecha)
@ prow() ,61 say "No. DE VALE : "+vale
@ prow() , 5 say " "
@ prow()+1, 1 say replicate("-",80)
@ prow()+1, 1 say "CODIGO"
@ prow() , 8 say "DESCRIPCION"
@ prow() ,46 say "CANTIDAD"
@ prow() ,55 say "COSTO TOTAL"
@ prow() ,67 say "CUENTA"
@ prow() ,74 say "ORDEN"
@ prow()+1, 1 say replicate("-",80)
do while .t.
if prow()>58
eject
@ prow()+3, 1 say "ALMACEN : REPUESTOS"
@ prow() ,35 say "FECHA : "+dtoc(fecha)
@ prow() ,61 say "No. DE VALE : "+vale
@ prow() , 5 say " "
@ prow()+1, 1 say replicate("-",80)
@ prow()+1, 1 say "CODIGO"
@ prow() , 8 say "DESCRIPCION"
@ prow() ,46 say "CANTIDAD"
@ prow() ,55 say "COSTO TOTAL"
@ prow() ,67 say "CUENTA"
@ prow() ,74 say "ORDEN"
@ prow()+1, 1 say replicate("-",80)
endif
if vale<>valefid .or. tv<>tvfid
exit
endif
costot=costot+mon
@ prow()+1, 1 say ci
@ prow() , 8 say substr(des,1,37)
@ prow() ,46 say can pict "99999.99"
@ prow() ,55 say mon pict "9999,999.99"
@ prow() ,67 say cta
@ prow() ,74 say otp
skip
enddo
SET PRINTER FONT 'Courier', 8 STYLE 'N'
@ prow()+1, 1 say replicate("-",80)
@ prow()+1, 8 say "TOTAL :"
@ prow() ,55 say costot pict "9999,999.99"
@ prow()+3, 5 say "Entregado por : "
@ prow() ,45 say "Recibido por : "
set device to screen
SET PRINTER to
? CHR(7)

agradecere mucho la colaboracion de cada uno de ustedes desde ya muchas gracias

aparentemente todo esta bien .. parece que el problema podria ser tu impresora

Prueba mandando de otras aplicaciones


SUerte

No es la impresora Ernesto Hernandez en el mismo programa los repo generados por foxpro se imprimen bien peo cuando lo hago dese programa me imprime inversamente es decir fondo negro con letras en blanco
estare gustoso de recibir respuestas y porder probar las posibles soluciones
gracias

Checa el commando

? chr(114)

Sirve para seleccionar el color checa que si no te afecta eso ...


Suerte

despues de leer y probar encontre la solucion en este link
http://support.microsoft.com/kb/162085/es

como vieron mi problema era de los comandos del color
gracias por su ayuda me diero las pautas para poder encontrar la solucion