FiveTech Software tech support forums

Adhemar
yo lo hago así enlazo la pdflib.lib en verce la ponés en librería de terceros tal cual viene en xHarbour y nada mas
fijate en el script que hace el verce

https://docs.google.com/open?id=0B8UT409V4x1mU0RPOG1TNU9COVk

elaza la zlib.lib
Luis

Gracias Distinguido Luis.

Funciona.
Me faltaba enlazar la zLib.LIB

Lo que me queda por solucionar es el problema de exportar a Excel desde xBrowse con la última Rev. 9656 de xHarbour.
El problema es la RTL.LIB

Saludos,

Adhemar

Hola Luis

He hecho prueba de impresion de texto con el ejemplo y simpre lo coloca al final
Si coloco asi:

Code: Select all  Expand view

   L=0
   For I:=1 To 15
    oPdf:Pdfatsay("Prueba PDF"  ,820-L,1)
    L+=10
   Next I
 

Muestra al inicio. Porque??

La funcion cm2dpi() me la podes pasar.

Gracias amigo.

Saludos,

Adhemar

Aquí va
No recuerdo bien pero me parece que la creo The Full, sino es disculpas al autor

Code: Select all  Expand view

function cm2dpi( nCM, page, lHeight )
   Local nHeight,nDpi := 72
   Local nRes

   if empty( lHeight )
      lHeight := .T.
   endif

   if lHeight
      nHeight := 842.0
      nRes := nHeight - ( nCM * nDpi / 2.54 )
   else
      nRes := ( nCM * nDpi / 2.54 )
   endif

return nRes

Luis

Me averguenza no recordar de quien es y es porque para hacer funcionar tuve que rebuscar por todos lados y de casualidad dí con ella en su momento
La imagen fue lo mas difícil

Luis

Gracias Distinguido.

Saludos,

Adhemar

Saludos
Necesito colocar textos alineados hacia la Derecha, caso de valores Numéricos.

Hola jnavas:

La cosa es muy sencilla en realidad es solo imaginárselo. Solo puedes poner tipos de letra de paso fijo y además caracteres alfanuméricos por lo que para hacer que coincidan el último digito a la derecha transfórmalos con str:

str(campo01,18,10)
str(campo02,10, 6)
str(campo03,5,2)
str(campo04,10,2)

Y así siempre tienen la misma longitud y están alineado a la derecha.

Un saludo

Carlos