Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Free some GDI Handlers
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2008
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Desktop
Divers
Thread ID:
01530443
Message ID:
01530501
Vues:
78
>Hi Borislav,
>
> I did test yesterday a small report (one page) with output to 2000 pdf files without the problem.
>
>MartinaJ

Thank you Martina,
Here the whole process:
thisform.loSession = xfrx("XFRX#LISTENER")
thisform.loSession.SetParams(,,,,,,"XFF")
thisform.loSession.DoNotOpenViewer = .t.
thisform.loSession.SetThermFormCaption("Generating - "+thisform.Caption )
thisform.loSession.setEmbeddingType(2) 

REPORT FORM (thisform.form_prt) OBJECT thisform.loSession
thisform.loXFF            = thisform.loSession.oxfDocument

LOCAL loSession
loSession = xfrx("XFRX#INIT")

 SCAN
      WAIT WINDOW NOWAIT NOCLEAR lcExitTo + [ ]+ALLTRIM(Ime)+[ ] +ALLTRIM(Egn)
      && This is my method to get Page range for a group
      lcPageRange = thisform.loXFF.GetPageRangeForGroup(lcEgn+[: ]+Egn) 

      lcFileName = "NameOfThePDF"

      loSession.SetParams(lcFileName,,,,,,"PDF")
      loSession.lNotOpenWord = .t.
      loSession.setPageRange(lcPageRange)
      loSession.setPermissions(.t., .f., .f., .t.)

      loSession.transformReport(thisform.loXFF)
ENDSCAN
The report look like the image I attached here.
Excuse me for the Cyrillic, but have no time to translate it :-)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform