FORUM WINDEV

Bonjour à Tous!

Je Voudrais savoir que faut-il faire pour Imprimer en Filigrane sur un Etat ?

Merci D'avance!

bon Dev....

Je ne connais pas trop windev 9 mais je pense qu'en mettant une image en plein milieu de ton état tu peux.

Il faudra bien sur que ton image n'est pas de fond.

à tester

Bonjour,
Tu dois procéder comme suit:

1. Créer une procédure globale "ImprimeImageDemo"

Code: Tout sélectionner

    PROCEDURE ImprimeImageDémo()
    InfoImage, Image sont des chaînes
    HauteurImage, LargeurImage, LargeurPage sont des entiers
    y1 est un entier = 10  // Début de l'impression à 10mm du  haut de page
    //On récupère l'image sur le disque
    Image  = "ImageDemo.jpg"
    // On récupère les informations de l'image
    InfoImage = InfoBitmap(Image)
    LargeurImage = Val(ExtraitChaîne(InfoImage, 2))
    HauteurImage = Val(ExtraitChaîne(InfoImage, 3))
    //On calcul le centrage de l'image
    LargeurPage = (iLargeurPage()/2)-(LargeurImage/2)
    //On imprime l'image
    iImprimeImage(Image,LargeurPage,y1,LargeurImage+LargeurPage,HauteurImage,iAffichageHomothétique)

2. Dans le bloc "Avant impression HAUT DE PAGE" de ton état, insère le code approprié (ici un exemple):

Code: Tout sélectionner

SI Intro.LibelléDémo..Libellé="VERSION DE DEMONSTRATION" ALORS
       ImprimeImageDémo()
    SINON
       ...
    FIN

Voici un exemple:


Voilà