topic-24851

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: clase Tpdf
Posted: Tue Sep 18, 2012 07:05 PM

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

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: clase Tpdf
Posted: Tue Sep 18, 2012 07:44 PM

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

Saludos,

Adhemar C.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: clase Tpdf
Posted: Wed Sep 19, 2012 09:50 PM

Hola Luis

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

Code (fw): Select all Collapse

   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

Saludos,

Adhemar C.

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: clase Tpdf
Posted: Wed Sep 19, 2012 10:47 PM

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

Code (fw): Select all Collapse

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

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: clase Tpdf
Posted: Wed Sep 19, 2012 10:50 PM

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

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: clase Tpdf
Posted: Wed Sep 19, 2012 10:55 PM

Gracias Distinguido.

Saludos,

Adhemar

Saludos,

Adhemar C.

jnavas

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

Re: clase Tpdf
Posted: Mon Apr 03, 2017 07:58 AM

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

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: clase Tpdf
Posted: Mon Apr 03, 2017 09:03 AM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

FiveTech Support Forums

Continue the discussion