Il est courant d'avoir besoin de fichiers au format PDF pour des tests. Voici un bout de code WLangage pratique pour créer un fichier d'un nombre quelconque de pages. Le PDF tel qu'il est généré ressemble à une mire afin de pouvoir facilement repérer ses différentes pages en fonction des besoins.

 

 

 

sMonPDF est une chaîne = fRepDonnées() / "test. pdf"
nNbPage est un entier = 6
TabCouleur est un tableau de Couleur = [VertPastel, BleuPastel, VertClair, BleuClair, OrangePastel]
MonImage est une Image


iDestination(iPDF, sMonPDF)

POUR nPage = 1 _À_ nNbPage

MonImage = GénèreImageGéométrique(200, 200, TabCouleur[Hasard(1, 5)], TabCouleur[Hasard(1, 5)])

iImprimeImage(MonImage,0, 0, iLargeurPage(), iHauteurPage)
iImprimeZone(GénèreLorem(200), 0, 0, 50, 50)
iImprimeZone(GénèreLorem(200), iLargeurPage()-50, 0, iLargeurPage(), 50)
iImprimeZone(GénèreLorem(200), 0, iHauteurPage()-50, 50, iHauteurPage())
iImprimeZone(GénèreLorem(200), iLargeurPage()-50, iHauteurPage()-50, iLargeurPage(), iHauteurPage())
iImprimeZone(GénèreLorem(200), iLargeurPage()/2-25, iHauteurPage()/2-25, iLargeurPage()/2+25, iHauteurPage()/2+25)

SI nPage < nNbPage ALORS iSautePage()

FIN
iFinImprime()
LanceAppliAssociée(sMonPDF)

 

A noter la syntaxe de construction du chemin :

sMonPDF est une chaîne = fRepDonnées() / "test. pdf"

Elle remplace très avantageusement les concaténations avec des ComplèteRep, ou +[fSep]...

 

< Retour

Publier un commentaire : 
Votre adresse email ne sera pas publiée