Page 2 of 2
Re: clase Tpdf
Posted: Tue Sep 18, 2012 7:05 pm
by 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=0B8UT409V4x1mU0RPOG1TNU9COVkelaza la zlib.lib
Luis
Re: clase Tpdf
Posted: Tue Sep 18, 2012 7:44 pm
by 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
Re: clase Tpdf
Posted: Wed Sep 19, 2012 9:50 pm
by 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
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
Re: clase Tpdf
Posted: Wed Sep 19, 2012 10:47 pm
by surGom
Aquí va
No recuerdo bien pero me parece que la creo The Full, sino es disculpas al autor
Code: Select all | Expand
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
Re: clase Tpdf
Posted: Wed Sep 19, 2012 10:50 pm
by 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
Re: clase Tpdf
Posted: Wed Sep 19, 2012 10:55 pm
by acuellar
Gracias Distinguido.
Saludos,
Adhemar
Re: clase Tpdf
Posted: Mon Apr 03, 2017 7:58 am
by jnavas
Saludos
Necesito colocar textos alineados hacia la Derecha, caso de valores Numéricos.
Re: clase Tpdf
Posted: Mon Apr 03, 2017 9:03 am
by 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