FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Generaci贸n archivos PDF
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Generaci贸n archivos PDF
Posted: Wed May 01, 2024 01:26 PM
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.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
pedroluis
Posts: 117
Joined: Sun Oct 08, 2017 12:51 PM
Re: Generaci贸n archivos PDF
Posted: Wed May 01, 2024 03:23 PM

Hola Kahirina !

Te agradezco mucho, pero est谩 funcionando !

Us茅 el syswat(3), y al esperar un poquito los genera bien.

Gracias a todos !

Pedro L. Lavallen

San Luis (Capital), Argentina
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Generaci贸n archivos PDF
Posted: Wed May 01, 2024 03:26 PM
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.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Adolfredo Martinez
Posts: 141
Joined: Fri Feb 15, 2019 01:37 PM
Re: Generaci贸n archivos PDF
Posted: Fri Nov 08, 2024 11:24 PM

Hoal PedroLuis.

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

Adolfredo Martinez
Posts: 141
Joined: Fri Feb 15, 2019 01:37 PM
Re: Generaci贸n archivos PDF
Posted: Fri Nov 08, 2024 11:40 PM
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 (fw): Select all Collapse
#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.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions