clase Tpdf

[surGom]

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

[acuellar]

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

[acuellar]

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

[surGom]

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

[surGom]

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

[acuellar]

Gracias Distinguido.

Saludos,

Adhemar

[jnavas]

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

[colthop]

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