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