Clipper/FiveWin - impresion xharbour

Hola,
He hecho mis programas en CLipper, y los estoy pasando a xharbour,
El problema que tengo es en la impresion usando @.. Say.
Pruebo ejemplos del manual de Xharbour (Xharbour.com) y no logro imprimir,

PROCEDURE Main
SET DEVICE TO PRINTER
@ 2,10 SAY "Hello there"
EJECT

SET PRINTER TO MyOutputFile.txt
SET DEVICE TO PRINTER
@ 10, 10 SAY "Current file is MyOutputFile.txt"

SET PRINTER TO
SET DEVICE TO SCREEN
RETURN

PRUEBO ESTE OTRO EJEMPLO Y SI PUEDO IMPRIMIR



PROCEDURE Main
USE Employees NEW
SET PRINTER ON

DO WHILE !EOF()
? Employees->Name, Employees->Phone
SKIP
ENDDO

EJECT
SET PRINTER OFF

CLOSE
RETURN


Nodosimp, me funciona, pero preferiria no usarlo, pues mis programas modifican los tamaños de las hojas

Agradezco la ayuda.
Usaba un progrmama (LMNprint) que al terminar mi rutina, me daba la opcion de mandar el archivo a imprimir, a correo, etc.
Alquien conoce algo similar ?
Muchas gracias
Giaco

Hola,
Creo que te falta el set print on i el set print off en los 2 primeros ejemplos.

Yo lo hago así:

SET PRINT ON
@ 2,10 SAY "Hello there"
EJECT

o bien:

SET PRINT TO MyOutputFile.txt // atención solo 8letras.txt
@ 10, 10 SAY "Current file is MyOutputFile.txt"
EJECT

y luego:

SET PRINT OFF

Ya me dirás

Jordi