FiveTech Software tech support forums

... william, saludos.. #include <fivewin.ch>function Main()   local oPrn   local i   local nRow := 1   local nPagina := 1      oPrn := TDirectPrint():New('lpt1')      oPrn:beginprint()      for i := 1 to 330      if nRow = 1         oPrn:bold( .t. )  ...

...  local oPrn   local i   local nRow := 1   local nPagina := 1      oPrn := TDirectPrint():New('lpt1')      oPrn:beginprint()      for i := 1 to 330    ...

Lo bueno es que como William ha proporcionado su codigo fuente, no hay problema en recompilarla con nuevas versiones de Harbour

hola
claro mas vale tarde que nunca,

pero creo que ya todos los foreros sabemos que no podemos
utilizar dichas lib por los continuos cambios de mejoramientos de (x)harbour y su PCODE

por eso quedo sin comentarios durante 2 años que podrian ser mucho mas provechoso

Más vale tarde que nunca...

hola

mes sumo a los comentario de rafa,

aunque despues de 2 AÑOS se envia , que lastima

bye

Gracias William

Saludos,

Adhemar

acuellar,

Lo del logo quedo pendiente, no se ha terminado y pues solo fueron pruebas.

Lo del ejemplo de uso lo publicaré a la brevedad

Gracias William.

Se puede imprimir un archivo de texto que incluya logo?

Podrias dar algún ejemplo de como usarla.

Gracias.

Saludos,

Adhemar

Aqui está Tomada de CSTR de xharbour FUNCTION WCStr( xExp, nDecimals )   LOCAL cType   IF xExp == NIL      RETURN 'NIL'   ENDIF   cType := ValType( xExp )   SWITCH cType      CASE 'C'      ...

Gracias Antonio.

Esperaré.

Saludos,

Adhemar

Ya le he enviado un email a William, e imagino que el tambien verá esta conversación, para que nos proporcione algún ejemplo

Y el codigo de esa función que falta, gracias

Antonio / William

Y la función WCStr()

Algún ejemplo de como utilizar la clase

Gracias.

Saludos,

Adhemar

Joao,

Eso es todo lo que me ha enviado William. Supongo que el tendrá ejemplos de uso

Gracias maestro y Willian,

Hay algún ejemplo para impresión en USB en una impresora de Ticket Matricial?

Gracias,