Generación archivos PDF

[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.

[pedroluis]

Hola Kahirina !
Te agradezco mucho, pero está funcionando !
Usé el syswat(3), y al esperar un poquito los genera bien.
Gracias a todos !

[karinha]

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.

[Adolfredo Martinez]

Hoal PedroLuis.

Tengo el mismo problema, como lo solucionaste. Ha mas nadien le ha pasado.

[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 view  RUN

#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.