|
|
|
|
|
|
|
|
|
|
- Imprimer l'écran dans lequel est affichée la fenêtre en cours
FenRectangleEcran (Exemple)
Imprimer l'écran dans lequel est affichée la fenêtre en cours Le code suivant permet d'imprimer l'écran dans lequel est affichée la fenêtre en cours. IMG_DEST est un champ Image invisible de la fenêtre en cours // Nom temporaire de l'image
sNomTemp est une chaîne
sNomTemp = fFichierTemp()
Â
// Dimensions de l'écran qui affiche la fenêtre en cours
sInfoEcranEnCours est une chaîne
sInfoEcranEnCours = FenRectangleEcran("", écranSansBarreDesTâches)
Â
// Résultat : <X1> + TAB + <Y1> + TAB + <x2> + TAB + <Y2>.
// Pour imprimer tous les écrans en multi-écran, il faudrait utiliser les fonctions :
// SysListeEcran(), SysRectangleEcran()
Â
nXEcran, nYEcran, nLargeurEcran, nHauteurEcran sont des entiers
nXEcran = ExtraitChaîne(sInfoEcranEnCours, rangPremier)
nYEcran = ExtraitChaîne(sInfoEcranEnCours, rangSuivant)
nLargeurEcran = Abs(Val(ExtraitChaîne(sInfoEcranEnCours, rangSuivant)) - nXEcran)
nHauteurEcran = Abs(Val(ExtraitChaîne(sInfoEcranEnCours, rangSuivant)) - nYEcran)
Â
// Modification de la taille du champ Image pour le mettre à la taille de l'écran
IMG_DEST.Largeur = nLargeurEcran
IMG_DEST.Hauteur = nHauteurEcran
Â
// Copie de l'écran dans le champ Image
dCopieImage(copieEcran, IMG_DEST, copieSrcCopie, ...
nXEcran, nYEcran, nHauteurEcran, nLargeurEcran, 0, 0, nHauteurEcran, nLargeurEcran)
Â
// Sauvegarde de l'image dans un fichier temporaire
dSauveImageJPEG(IMG_DEST, sNomTemp, 90)
Â
// Vide le champ Image (libère la mémoire)
IMG_DEST = ""
Â
// Ouverture du visualisateur de rapports
iDestination(iVisualisateur)
Â
// Impression de l'image
iImprimeImage(sNomTemp, 0, 0, iLargeurPage(), iHauteurPage(), iAffichageHomothétique)
iFinImprime()
Â
// Suppression du fichier temporaire de l'image
fSupprime(sNomTemp)
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|