4D Doc Center : WR Construire apercu

4D Write v14

WR Construire apercu


WR Construire apercu ( zone ; page ) -> Résultat

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
page	Entier long	Numéro de la page à passer en image
Résultat	Image	Image de la page

Description

La commande WR Construire apercu transforme la page dont le numéro est passé en paramètre en une image. Le numéro de page tient compte du début de numérotation du document.

L'image créée peut, par exemple, être stockée dans un champ ou une variable Image de 4D. Cette image est de la taille de la page. Vous pouvez utiliser WR FIXER PROPRIETE DOCUMENT en passant une valeur pour wr largeur papier et pour wr hauteur papier pour modifier la taille de l'image.

Note : L'image ne contient pas les données 4D Write comme dans WR Zone vers image.

L'image obtenue est vectorielle. Une image construite sous Windows ne peut être affichée sur Macintosh ni stockée telle quelle dans un fichier image (par exemple via la commande ECRIRE FICHIER IMAGE) car elle est de type EMF. Si vous désirez qu'un aperçu généré sous Windows soit visible sur Macintosh ou dans une application Windows tierce, il faut préalablement le convertir en bitmap à l'aide de l'instruction MonImage:=MonImage|MonImage. Les types Bitmap et Pict sont indépendants de plate-forme, le type EMF est uniquement PC.

Note : A l'inverse, les aperçus générés sous Mac OS peuvent être utilisés directement.

Exemple

Vous avez enregistré des documents 4D Write dans des champs BLOB. Vous souhaitez ne voir apparaître, lors de l'impression, que la deuxième page des documents. Pour cela, insérez une variable image (intitulée MonImage dans notre exemple) dans le formulaire d'impression et associez-lui la méthode suivante :

 Si(Evenement formulaire=Sur impression corps)

    WR BLOB VERS ZONE(NewOffscreen;[MaTable]WriteBlob_)

    MonImage:=WR Construire apercu(NewOffscreen;2)

 Fin de si

Créez et appelez ensuite la méthode projet suivante :

 CHERCHER([MaTable]) `Déterminez la sélection à imprimer

 FORMULAIRE SORTIE([MaTable];"ImpressionPage2") `ImpressionPage2 est le formulaire d'impression

 NewOffscreen:=WR Hors ecran `Créez la zone hors écran utilisée dans la méthode de 'MonImage'

 IMPRIMER SELECTION([MaTable]) `Imprimez la sélection

 WR DETRUIRE HORS ECRAN(NewOffscreen) `Supprimez la zone Hors écran désormais inutile