Page 2 of 2
Re: Generación archivos PDF
Posted: Wed May 01, 2024 1:26 pm
by karinha
Buenos días Pedro. ¿Puedes hacer una DEMOSTRACIÓN con el archivo .DBF y ponerlo a disposición para su descarga, de modo que pueda intentar ver si puedo dominar la lógica?
https://mega.nz/
tks.
Regards, saludos.
Re: Generación archivos PDF
Posted: Wed May 01, 2024 3:23 pm
by pedroluis
Hola Kahirina !
Te agradezco mucho, pero está funcionando !
Usé el syswat(3), y al esperar un poquito los genera bien.
Gracias a todos !
Re: Generación archivos PDF
Posted: Wed May 01, 2024 3:26 pm
by karinha
pedroluis wrote:Hola Kahirina !
Te agradezco mucho, pero está funcionando !
Usé el syswat(3), y al esperar un poquito los genera bien.
Gracias a todos !
Great!
Regards, saludos.
Re: Generación archivos PDF
Posted: Fri Nov 08, 2024 11:24 pm
by Adolfredo Martinez
Hoal PedroLuis.
Tengo el mismo problema, como lo solucionaste. Ha mas nadien le ha pasado.
Re: Generación archivos PDF
Posted: Fri Nov 08, 2024 11:40 pm
by Adolfredo Martinez
Hola por aqui molestando.
Bueno a ti te funciona con
syswat(3), pero a mi no me funciona, de 10 que pongo a crear siempre de 2 en blanco, ademas donde son unos 5000 pdf.
Este un ejemplo, que me paso cesar, y estoy practicando.
Code: Select all | Expand
#include "Fivewin.ch"
#include "print.ch"
FUNCTION Main()
LOCAL oPrn, i, oFont
DEFINE FONT oFont NAME "ARIAL" SIZE 60,120
FOR i := 1 TO 10
PRINT oPrn ;
NAME "Pdf Nro "+str(i,2) ;
FILE "pdf"+STR(i,1)+".pdf" PREVIEW
oPrn:SetPage(5) // LEGAL
oPrn:SetPortrait() //Vertical
PAGE
//Texto a imprimir
@ 10,10 PRINT TO oPrn TEXT "Hoja "+STR(i,2) SIZE 2.5,1 CM FONT oFont ALIGN "CT"
ENDPAGE
ENDPRINT
Syswait(3)
NEXT i
RELEASE oFont
RETURN nil
Le fui incrementando, pero nada.