Clipper/FiveWin - No Imprime al instante

Tengo una aplicación que corre una función Print('LPT1') o Print('LPT2') pero no imprime hasta que cierro la aplicación. Puedo ejecutar la función un numero indefinido de veces y nada. y al cerrar la aplicación se imprimen tantas veces se halla llamado a la función. Compilo con Harbour.

Usa

SET DEVICE TO PRINT
SET CONSOLE OFF
SET PRINTER ON
SET PRINTER TO &LPT
...
... @ x,y say ...
...
SET PRINTER OFF
SET CONSOLE ON
SET DEVICE TO SCREEN
SET PRINTER TO

Me funciono a la perfección , te agradezco