je suis sous WD15. je cale car j'essaie de traouver une solution pour
réaliser via un clic sur un bouton la capture d'écran d'une fenetre et
de son impression. cela permettra d'éviter de passer via un état car
c'est pour imprimer en brouillon la saisie d'un écarn.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Romain PETIT
titou44 a formulé ce samedi :
bonjour
Bonjour,
je suis sous WD15. je cale car j'essaie de traouver une solution pour réaliser via un clic sur un bouton la capture d'écran d'une fenetre et de son impression. cela permettra d'éviter de passer via un état car c'est pour imprimer en brouillon la saisie d'un écarn.
mais sous WD15 je suis "sec". je suis preneur d'idée.
je suis sous WD15. je cale car j'essaie de traouver une solution pour
réaliser via un clic sur un bouton la capture d'écran d'une fenetre et de son
impression. cela permettra d'éviter de passer via un état car c'est pour
imprimer en brouillon la saisie d'un écarn.
mais sous WD15 je suis "sec".
je suis preneur d'idée.
dCopieImageEcran ? (elle existe sous WD15 ?)
A+
--
Romain PETIT
contact : rompetit chez free fr
+-+ posté sur Usenet avec MesNews et non depuis un forum web +-+
news:fr.comp.developpement.agl.windev
http://www.mesnews.net/
http://fr.wikipedia.org/wiki/Newsgroup
je suis sous WD15. je cale car j'essaie de traouver une solution pour réaliser via un clic sur un bouton la capture d'écran d'une fenetre et de son impression. cela permettra d'éviter de passer via un état car c'est pour imprimer en brouillon la saisie d'un écarn.
mais sous WD15 je suis "sec". je suis preneur d'idée.
--
Romain PETIT
contact : rompetit chez free fr
+-+ posté sur Usenet avec MesNews et non depuis un forum web +-+
news:fr.comp.developpement.agl.windev
http://www.mesnews.net/
http://fr.wikipedia.org/wiki/Newsgroup
1 - ajouter sur la fenetre en champ image IMG_HC (en dehors de la fenetre)
2- ajouter une bouton et y mettre ce code :
LOCAL
sNomFichierImage est une chaîne
// Initialise la taille du champ destination à la taille de la zone à copier IMG_HC..Largeur = FenExtLarg(f_fact) IMG_HC..Hauteur = FenExtHaut(f_fact) sNomFichierImage = fRepEnCours() + "" + "copieecran.jpg"
// Copie d'écran vers le champ image dCopieImage(copieEcran,IMG_HC,copieSrcCopie,FenExtPosX(f_fact),FenExtPosY(f_fact),FenExtHaut(f_fact),FenExtLarg(f_fact))
SI ErreurDétectée ALORS Erreur("Une erreur est apparue pendant la réalisation de la Hard Copie de l'écran", ErreurInfo()) RETOUR FIN
// Sauvegarde au format JPEG dSauveImageJPEG(IMG_HC,sNomFichierImage)
SI ErreurDétectée ALORS Erreur("Une erreur est apparue pendant la sauvegarde de la Hard Copie de l'écran", ErreurInfo()) RETOUR FIN
// Impression de l'image en mode Homothétique centré avec marge de 10 mm iImprimeImage(sNomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré)
Oui je confirme, cette fonction est bien détaillée dans l'aide de WD 15
http://doc.pcsoft.fr/fr-FR/?1000019912&nameÜopieImageFenetre
bonjour messieurs
et merci pour vos pistes.
je vous mets ci apres le code qui fonctionne :
1 - ajouter sur la fenetre en champ image IMG_HC (en dehors de la
fenetre)
2- ajouter une bouton et y mettre ce code :
LOCAL
sNomFichierImage est une chaîne
// Initialise la taille du champ destination à la taille de la zone à
copier
IMG_HC..Largeur = FenExtLarg(f_fact)
IMG_HC..Hauteur = FenExtHaut(f_fact)
sNomFichierImage = fRepEnCours() + "" + "copieecran.jpg"
// Copie d'écran vers le champ image
dCopieImage(copieEcran,IMG_HC,copieSrcCopie,FenExtPosX(f_fact),FenExtPosY(f_fact),FenExtHaut(f_fact),FenExtLarg(f_fact))
SI ErreurDétectée ALORS
Erreur("Une erreur est apparue pendant la réalisation de la Hard
Copie de l'écran", ErreurInfo())
RETOUR
FIN
// Sauvegarde au format JPEG
dSauveImageJPEG(IMG_HC,sNomFichierImage)
SI ErreurDétectée ALORS
Erreur("Une erreur est apparue pendant la sauvegarde de la Hard Copie
de l'écran", ErreurInfo())
RETOUR
FIN
// Impression de l'image en mode Homothétique centré avec marge de 10
mm
iImprimeImage(sNomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré)
1 - ajouter sur la fenetre en champ image IMG_HC (en dehors de la fenetre)
2- ajouter une bouton et y mettre ce code :
LOCAL
sNomFichierImage est une chaîne
// Initialise la taille du champ destination à la taille de la zone à copier IMG_HC..Largeur = FenExtLarg(f_fact) IMG_HC..Hauteur = FenExtHaut(f_fact) sNomFichierImage = fRepEnCours() + "" + "copieecran.jpg"
// Copie d'écran vers le champ image dCopieImage(copieEcran,IMG_HC,copieSrcCopie,FenExtPosX(f_fact),FenExtPosY(f_fact),FenExtHaut(f_fact),FenExtLarg(f_fact))
SI ErreurDétectée ALORS Erreur("Une erreur est apparue pendant la réalisation de la Hard Copie de l'écran", ErreurInfo()) RETOUR FIN
// Sauvegarde au format JPEG dSauveImageJPEG(IMG_HC,sNomFichierImage)
SI ErreurDétectée ALORS Erreur("Une erreur est apparue pendant la sauvegarde de la Hard Copie de l'écran", ErreurInfo()) RETOUR FIN
// Impression de l'image en mode Homothétique centré avec marge de 10 mm iImprimeImage(sNomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré)