Clipper/FiveWin - impresion xharbour

   
Vista:

impresion xharbour

Publicado por Giaco ypiperno@hotmail.com (2 intervenciones) el 02/09/2011 16:29:47
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

impresion xharbour

Publicado por Jordi (10 intervenciones) el 31/10/2011 17:40:07
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar