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
Firetox
Bonjour,
tu as normalement un surper champs qui fait ca , mais tu peux en creer un tu creer un super champs avec une image et un bouton
dans le code du botuon du met le code suivant : ImprimerEcran(SCH_ImprimeEcran)
et tu creer une procedure globale : PROCEDURE ImprimerEcran(p_NomSuperChamps,p_edite = Vrai)
LOCAL
v_NomFichierImage est une chaîne v_sauveTitreFenetre est une chaîne = {FenEnCours()}..Titre
{FenEnCours()}..Titre += " Imprime le "+DateVersChaine(DateSys()) +" à : "+Gauche(HeureSys(), 2)+":"+Milieu(HeureSys(), 3,2) SI fRep("c:temp", frRépertoire)~="" ALORS // creation du repertoire fRepCrée("c:temp") FIN v_NomFichierImage = ExtraitChaîne(fFichierTemp("SQLX", "C:temp"),1,".")+".bmp" iRAZ() // Initialise la taille du champ destination à la taille de la zone à copier p_NomSuperChamps.IMG_imprimeEcran..LargeurþnExtLarg() p_NomSuperChamps.IMG_imprimeEcran..HauteurþnExtHaut()
// Copie d'écran vers le champ image dCopieImage(copieEcran,p_NomSuperChamps.IMG_imprimeEcran,copieSrcCopie,FenExtPosX(),FenExtPosY(),FenExtHaut(),FenExtLarg()) SI ErreurDétectée ALORS RETOUR FIN
dSauveImageGIF(p_NomSuperChamps.IMG_imprimeEcran,v_NomFichierImage) SI ErreurDétectée ALORS RETOUR FIN
// Fin de la Hard-Copie dFinDessin(p_NomSuperChamps.IMG_imprimeEcran)
SI p_edite = Vrai iParamètre("ORIENTATION = PAYSAGE")
// Impression de l'image en mode Homothétique centré avec marge de 10 mm iImprimeImage(v_NomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré) // On demande l'impression effective iFinImprime()FIN{FenEnCours()}..Titre = v_sauveTitreFenetrepourqoui un superchamps : pour avoir l'image dans le bouton : ca evite decreer un champs image a chaque fois qu'on veut une impression ecran. tu faitun copier coller de ce bouton et ca marche tout seul@+"jllestremau" a écrit dans le message de news:43b4f856$0$19684$ Bonjour à tous>> Je cherche un moyen pour lancer une impression ecran à partir d'unefenetre (WD 10)>> Merci à tous de m'avoir lu et deux fois merci à celui qui m'aidera.>> J-L Lestremau>
Bonjour,
tu as normalement un surper champs qui fait ca , mais tu peux en creer un
tu creer un super champs avec une image et un bouton
dans le code du botuon du met le code suivant :
ImprimerEcran(SCH_ImprimeEcran)
et tu creer une procedure globale :
PROCEDURE ImprimerEcran(p_NomSuperChamps,p_edite = Vrai)
LOCAL
v_NomFichierImage est une chaîne
v_sauveTitreFenetre est une chaîne = {FenEnCours()}..Titre
{FenEnCours()}..Titre += " Imprime le "+DateVersChaine(DateSys()) +" à :
"+Gauche(HeureSys(), 2)+":"+Milieu(HeureSys(), 3,2)
SI fRep("c:temp", frRépertoire)~="" ALORS
// creation du repertoire
fRepCrée("c:temp")
FIN
v_NomFichierImage = ExtraitChaîne(fFichierTemp("SQLX",
"C:temp"),1,".")+".bmp"
iRAZ()
// Initialise la taille du champ destination à la taille de la zone à copier
p_NomSuperChamps.IMG_imprimeEcran..LargeurþnExtLarg()
p_NomSuperChamps.IMG_imprimeEcran..HauteurþnExtHaut()
// Copie d'écran vers le champ image
dCopieImage(copieEcran,p_NomSuperChamps.IMG_imprimeEcran,copieSrcCopie,FenExtPosX(),FenExtPosY(),FenExtHaut(),FenExtLarg())
SI ErreurDétectée ALORS
RETOUR
FIN
dSauveImageGIF(p_NomSuperChamps.IMG_imprimeEcran,v_NomFichierImage)
SI ErreurDétectée ALORS
RETOUR
FIN
// Fin de la Hard-Copie
dFinDessin(p_NomSuperChamps.IMG_imprimeEcran)
SI p_edite = Vrai
iParamètre("ORIENTATION = PAYSAGE")
// Impression de l'image en mode Homothétique centré avec marge de 10 mm
iImprimeImage(v_NomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré) // On demande l'impression effective iFinImprime()FIN{FenEnCours()}..Titre = v_sauveTitreFenetrepourqoui un superchamps : pour avoir l'image dans le bouton : ca evite decreer un champs image a chaque fois qu'on veut une impression ecran. tu faitun copier coller de ce bouton et ca marche tout seul@+"jllestremau" <jllestremau@wanadoo.fr> a écrit dans le message de news:43b4f856$0$19684$8fcfb975@news.wanadoo.fr...> Bonjour à tous>> Je cherche un moyen pour lancer une impression ecran à partir d'unefenetre (WD 10)>> Merci à tous de m'avoir lu et deux fois merci à celui qui m'aidera.>> J-L Lestremau>
tu as normalement un surper champs qui fait ca , mais tu peux en creer un tu creer un super champs avec une image et un bouton
dans le code du botuon du met le code suivant : ImprimerEcran(SCH_ImprimeEcran)
et tu creer une procedure globale : PROCEDURE ImprimerEcran(p_NomSuperChamps,p_edite = Vrai)
LOCAL
v_NomFichierImage est une chaîne v_sauveTitreFenetre est une chaîne = {FenEnCours()}..Titre
{FenEnCours()}..Titre += " Imprime le "+DateVersChaine(DateSys()) +" à : "+Gauche(HeureSys(), 2)+":"+Milieu(HeureSys(), 3,2) SI fRep("c:temp", frRépertoire)~="" ALORS // creation du repertoire fRepCrée("c:temp") FIN v_NomFichierImage = ExtraitChaîne(fFichierTemp("SQLX", "C:temp"),1,".")+".bmp" iRAZ() // Initialise la taille du champ destination à la taille de la zone à copier p_NomSuperChamps.IMG_imprimeEcran..LargeurþnExtLarg() p_NomSuperChamps.IMG_imprimeEcran..HauteurþnExtHaut()
// Copie d'écran vers le champ image dCopieImage(copieEcran,p_NomSuperChamps.IMG_imprimeEcran,copieSrcCopie,FenExtPosX(),FenExtPosY(),FenExtHaut(),FenExtLarg()) SI ErreurDétectée ALORS RETOUR FIN
dSauveImageGIF(p_NomSuperChamps.IMG_imprimeEcran,v_NomFichierImage) SI ErreurDétectée ALORS RETOUR FIN
// Fin de la Hard-Copie dFinDessin(p_NomSuperChamps.IMG_imprimeEcran)
SI p_edite = Vrai iParamètre("ORIENTATION = PAYSAGE")
// Impression de l'image en mode Homothétique centré avec marge de 10 mm iImprimeImage(v_NomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré) // On demande l'impression effective iFinImprime()FIN{FenEnCours()}..Titre = v_sauveTitreFenetrepourqoui un superchamps : pour avoir l'image dans le bouton : ca evite decreer un champs image a chaque fois qu'on veut une impression ecran. tu faitun copier coller de ce bouton et ca marche tout seul@+"jllestremau" a écrit dans le message de news:43b4f856$0$19684$ Bonjour à tous>> Je cherche un moyen pour lancer une impression ecran à partir d'unefenetre (WD 10)>> Merci à tous de m'avoir lu et deux fois merci à celui qui m'aidera.>> J-L Lestremau>
Firetox
j'ai oublie
pourqoui une procedure globale : car une fois qu'une dizaine de fenetre on le superchamps, on modifie la procedure qu'a 1 seul endroit. si on met le code dans le super champs, il faudra a la prochaine modif changer tous les boutons
@+ "Firetox" a écrit dans le message de news: dp2vte$hi3$
Bonjour,
tu as normalement un surper champs qui fait ca , mais tu peux en creer un tu creer un super champs avec une image et un bouton
dans le code du botuon du met le code suivant : ImprimerEcran(SCH_ImprimeEcran)
et tu creer une procedure globale : PROCEDURE ImprimerEcran(p_NomSuperChamps,p_edite = Vrai)
LOCAL
v_NomFichierImage est une chaîne v_sauveTitreFenetre est une chaîne = {FenEnCours()}..Titre
{FenEnCours()}..Titre += " Imprime le "+DateVersChaine(DateSys()) +" à : "+Gauche(HeureSys(), 2)+":"+Milieu(HeureSys(), 3,2) SI fRep("c:temp", frRépertoire)~="" ALORS // creation du repertoire fRepCrée("c:temp") FIN v_NomFichierImage = ExtraitChaîne(fFichierTemp("SQLX", "C:temp"),1,".")+".bmp" iRAZ() // Initialise la taille du champ destination à la taille de la zone à copier p_NomSuperChamps.IMG_imprimeEcran..LargeurþnExtLarg() p_NomSuperChamps.IMG_imprimeEcran..HauteurþnExtHaut()
// Copie d'écran vers le champ image dCopieImage(copieEcran,p_NomSuperChamps.IMG_imprimeEcran,copieSrcCopie,FenExtPosX(),FenExtPosY(),FenExtHaut(),FenExtLarg()) SI ErreurDétectée ALORS RETOUR FIN
dSauveImageGIF(p_NomSuperChamps.IMG_imprimeEcran,v_NomFichierImage) SI ErreurDétectée ALORS RETOUR FIN
// Fin de la Hard-Copie dFinDessin(p_NomSuperChamps.IMG_imprimeEcran)
SI p_edite = Vrai iParamètre("ORIENTATION = PAYSAGE")
// Impression de l'image en mode Homothétique centré avec marge de 10 mm iImprimeImage(v_NomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré) // On demande l'impression effective iFinImprime()FIN{FenEnCours()}..Titre = v_sauveTitreFenetrepourqoui un superchamps : pour avoir l'image dans le bouton : ca evite decreer un champs image a chaque fois qu'on veut une impression ecran. tu faitun copier coller de ce bouton et ca marche tout seul@+"jllestremau" a écrit dans le message de news:43b4f856$0$19684$ Bonjour à tous>> Je cherche un moyen pour lancer une impression ecran à partir d'unefenetre (WD 10)>> Merci à tous de m'avoir lu et deux fois merci à celui qui m'aidera.>> J-L Lestremau>
j'ai oublie
pourqoui une procedure globale : car une fois qu'une dizaine de fenetre on
le superchamps, on modifie la procedure qu'a 1 seul endroit. si on met le
code dans le super champs, il faudra a la prochaine modif changer tous les
boutons
@+
"Firetox" <emprin.frederic@SQLManagerX.com> a écrit dans le message de news:
dp2vte$hi3$1@s1.news.oleane.net...
Bonjour,
tu as normalement un surper champs qui fait ca , mais tu peux en creer un
tu creer un super champs avec une image et un bouton
dans le code du botuon du met le code suivant :
ImprimerEcran(SCH_ImprimeEcran)
et tu creer une procedure globale :
PROCEDURE ImprimerEcran(p_NomSuperChamps,p_edite = Vrai)
LOCAL
v_NomFichierImage est une chaîne
v_sauveTitreFenetre est une chaîne = {FenEnCours()}..Titre
{FenEnCours()}..Titre += " Imprime le "+DateVersChaine(DateSys()) +" à :
"+Gauche(HeureSys(), 2)+":"+Milieu(HeureSys(), 3,2)
SI fRep("c:temp", frRépertoire)~="" ALORS
// creation du repertoire
fRepCrée("c:temp")
FIN
v_NomFichierImage = ExtraitChaîne(fFichierTemp("SQLX",
"C:temp"),1,".")+".bmp"
iRAZ()
// Initialise la taille du champ destination à la taille de la zone à
copier
p_NomSuperChamps.IMG_imprimeEcran..LargeurþnExtLarg()
p_NomSuperChamps.IMG_imprimeEcran..HauteurþnExtHaut()
// Copie d'écran vers le champ image
dCopieImage(copieEcran,p_NomSuperChamps.IMG_imprimeEcran,copieSrcCopie,FenExtPosX(),FenExtPosY(),FenExtHaut(),FenExtLarg())
SI ErreurDétectée ALORS
RETOUR
FIN
dSauveImageGIF(p_NomSuperChamps.IMG_imprimeEcran,v_NomFichierImage)
SI ErreurDétectée ALORS
RETOUR
FIN
// Fin de la Hard-Copie
dFinDessin(p_NomSuperChamps.IMG_imprimeEcran)
SI p_edite = Vrai
iParamètre("ORIENTATION = PAYSAGE")
// Impression de l'image en mode Homothétique centré avec marge de 10 mm
iImprimeImage(v_NomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré)
// On demande l'impression effective iFinImprime()FIN{FenEnCours()}..Titre
= v_sauveTitreFenetrepourqoui un superchamps : pour avoir l'image dans le
bouton : ca evite decreer un champs image a chaque fois qu'on veut une
impression ecran. tu faitun copier coller de ce bouton et ca marche tout
seul@+"jllestremau" <jllestremau@wanadoo.fr> a écrit dans le message de
news:43b4f856$0$19684$8fcfb975@news.wanadoo.fr...> Bonjour à tous>> Je
cherche un moyen pour lancer une impression ecran à partir d'unefenetre
(WD 10)>> Merci à tous de m'avoir lu et deux fois merci à celui qui
m'aidera.>> J-L Lestremau>
pourqoui une procedure globale : car une fois qu'une dizaine de fenetre on le superchamps, on modifie la procedure qu'a 1 seul endroit. si on met le code dans le super champs, il faudra a la prochaine modif changer tous les boutons
@+ "Firetox" a écrit dans le message de news: dp2vte$hi3$
Bonjour,
tu as normalement un surper champs qui fait ca , mais tu peux en creer un tu creer un super champs avec une image et un bouton
dans le code du botuon du met le code suivant : ImprimerEcran(SCH_ImprimeEcran)
et tu creer une procedure globale : PROCEDURE ImprimerEcran(p_NomSuperChamps,p_edite = Vrai)
LOCAL
v_NomFichierImage est une chaîne v_sauveTitreFenetre est une chaîne = {FenEnCours()}..Titre
{FenEnCours()}..Titre += " Imprime le "+DateVersChaine(DateSys()) +" à : "+Gauche(HeureSys(), 2)+":"+Milieu(HeureSys(), 3,2) SI fRep("c:temp", frRépertoire)~="" ALORS // creation du repertoire fRepCrée("c:temp") FIN v_NomFichierImage = ExtraitChaîne(fFichierTemp("SQLX", "C:temp"),1,".")+".bmp" iRAZ() // Initialise la taille du champ destination à la taille de la zone à copier p_NomSuperChamps.IMG_imprimeEcran..LargeurþnExtLarg() p_NomSuperChamps.IMG_imprimeEcran..HauteurþnExtHaut()
// Copie d'écran vers le champ image dCopieImage(copieEcran,p_NomSuperChamps.IMG_imprimeEcran,copieSrcCopie,FenExtPosX(),FenExtPosY(),FenExtHaut(),FenExtLarg()) SI ErreurDétectée ALORS RETOUR FIN
dSauveImageGIF(p_NomSuperChamps.IMG_imprimeEcran,v_NomFichierImage) SI ErreurDétectée ALORS RETOUR FIN
// Fin de la Hard-Copie dFinDessin(p_NomSuperChamps.IMG_imprimeEcran)
SI p_edite = Vrai iParamètre("ORIENTATION = PAYSAGE")
// Impression de l'image en mode Homothétique centré avec marge de 10 mm iImprimeImage(v_NomFichierImage,10,10,iLargeurPage()-10,iHauteurPage()-10,iAffichageHomoCentré) // On demande l'impression effective iFinImprime()FIN{FenEnCours()}..Titre = v_sauveTitreFenetrepourqoui un superchamps : pour avoir l'image dans le bouton : ca evite decreer un champs image a chaque fois qu'on veut une impression ecran. tu faitun copier coller de ce bouton et ca marche tout seul@+"jllestremau" a écrit dans le message de news:43b4f856$0$19684$ Bonjour à tous>> Je cherche un moyen pour lancer une impression ecran à partir d'unefenetre (WD 10)>> Merci à tous de m'avoir lu et deux fois merci à celui qui m'aidera.>> J-L Lestremau>
Sécurité Pointage & Biométrie
"jllestremau" a écrit dans le message de news: 43b4f856$0$19684$
Bonjour à tous
Je cherche un moyen pour lancer une impression ecran à partir d'une fenetre (WD 10)
Merci à tous de m'avoir lu et deux fois merci à celui qui m'aidera.
J-L Lestremau
Bonjour,
Vous créez un champ image en dehors de la fenêtre et un bouton.
