Discussion :

[GestApp]

Bonjour,

Peut-on enregistrer un état sous format image dans un champ image lors de l'impression s'il vous plait

par exempla j'ai une ordonnance à imprimé et quand je clique sur le bouton imprimé il m'imprime l'ordonnance et il garde copie de l'ordonnance

merci

[Voroltinquo]

Bonjour,
Essaye une impression en PDF (via iDestination.) Tu pourras alors affecter le fichier PDF obtenu à ton champ image.
Non testé.

[GestApp]

Bonjour,
Essaye une impression en PDF (via iDestination.) Tu pourras alors affecter le fichier PDF obtenu à ton champ image.
Non testé.

Merci beaucoup mais je veux pas enregistré le fichier PDF dans mon ordinateur je veux juste l'imprimé et le sauvegardé dans mon application

d'autre piste s'il vous plait

[Yusep]

HattacheMemo
https://doc.pcsoft.fr/?3044173

[GestApp]

HattacheMemo
https://doc.pcsoft.fr/?3044173

j'ai utilisé la fonction dCopieImageEcran()

je veux l'utilisé après affichage de mon état MAIS le problème maintenant c'est que il prends image de mon écran lors de l'ouverture de mon état
malgré j'ai essayé de placé mon code dans la partie (après impression corps état) mais toujours il prends image blanche puis il affiche mon état je ne sais pas ou est le problème !!!!

[kool-Paladin]

bonjour,
on vous as tout donner
pour ma part je ferais un iimpremetvers pdf
je recupere l'etat sur un fcharge text
ensuite je supprime le pdf
je l'affiche ou enregistre dans la base

5 operations = 5 lignes de code (allez 10 max)
et ce que vous cherchez est en place

F1 est mon meilleur ami dans windev sinon google avec windev en premier mot de recherche
car ce que vous cherchez generalement a ete vu par des developpeur depuis 20 ou 30 ans donc il y a forcement une trace quelquepart
a vous de la trouver, de comprendre, et d'être meilleur

[GestApp]

pour ma part je ferais un iimpremetvers pdf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

iDestination(iPDF,"C:\1.pdf")

je recupere l'etat sur un fcharge text

champ Saisie = fChargeTexte("C:\Fichier.txt") ==> Mais moi j'ai un fichier pdf je veux le sauvegarder sous format image de ma Base

je l'affiche ou enregistre dans la base

champ image ="C:\WinDev 17\1.pdf"

ensuite je supprime le pdf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fSupprime("C:\WinDev 17\1.pdf",frVersCorbeille)

[GestApp]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
iAperçu()
iInitRequêteEtat(ETAT_1)
iDestination(iPDF,"C:\1.pdf")
IMG_S ="C:\1.pdf"
fSupprime("C:\1.pdf",frVersCorbeille)
iImprimeEtat(ETAT_1)

Le problème c'est que le fichier PDF en aperçu est blanc rien n'est affiché mais si j’enlève iDestination () le fichier pdf est bien affiché
j'ai essayé de rajouté iParamètre mais sa n'a rien donné

[frenchsting]

Essaye comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
//iAperçu(iapzoom100)
iInitRequêteEtat(ETAT_1)
iDestination(iPDFGénérique,"C:\1.pdf") // iPDFGénérique évite les pb liés aux pilotes d'imprimante
iImprimeEtat(ETAT_1)
IMG_S = completerep(frepexe()) + "1.pdf" // on ne met pas de fichier dans la racine de l'os ou le mettre dans le dossier temporaire fRépertoireTemp()
fSupprime(completerep(frepexe())+"1.pdf") // suppression directe, inutile de le mettre dans la corbeille. Evite que l'utilisateur se demande ce qui lui arrive dans la corbeille...

Je pense que cela devrait mieux fonctionner. Dans ton code tu affectais ton image avant de la créer.

[GestApp]

Merci pour les remarques importantes

alors j'ai changer un autre état pour mon PDF c'est bon il s'affiche normal mais là j'ai un problème au niveau d'affichage dans mon champ image toujours vide
j'ai supprimé cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fSupprime(completerep(frepexe())+"1.pdf")

pour voir si mon PDF s'enregistre dans le chemin indiqué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\Windev 17\img\1.pdf"

et j'ai rien trouvé donc problème au niveau de "iDestination"
mais je ne sais pas d'ou il vient !!!
pourquoi mon fichier s'enregistre pas dans le chemin indiqué s'il vous plait?



ps: Mon état contient text+ image

[GestApp]

Voici mon nouveau code qui marche trés bien à part la suppression qui ne marche pas je ne sais pas ou est le problème !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
iAperçu(iPDF, "C:\Windev 17\img\1.pdf")
 
iInitRequêteEtat(ETAT_2)
 
iImprimeEtat(ETAT_2)
IMG_1="C:\Windev 17\img\1.pdf"
IMG_1..Zoom = zoomAdapteTaille
fSupprime("C:\1.pdf",frVersCorbeille)

j'ai essayé aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
iAperçu(iPDF, "C:\Windev 17\img\1.pdf")
 
iInitRequêteEtat(ETAT_2)
 
iImprimeEtat(ETAT_2)
IMG_1=ComplèteRep(fRepExe())+"C:\Windev 17\img\1.pdf"
IMG_1..Zoom = zoomAdapteTaille
fSupprime(ComplèteRep(fRepExe())+"1.pdf")

et la suppression ne fonction pas aussi


merci de m'aider

[frenchsting]

déjà cette ligne ne peut pas fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IMG_1=ComplèteRep(fRepExe())+"C:\Windev 17\img\1.pdf"

Tu vas avoir une valeur "c:\mes projets\MonBeauProjet\exe\C:\Windev 17\img\1.pdf"...
Ce qu'il y a de bien avec windev, c'est que pour chaque fonction, on peut savoir ce qui ne va pas :
Si tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
iDestination(iPDFGénérique,ComplèteRep(fRepExe())+"1.pdf") 
iInitRequêteEtat(ETAT_2)
iImprimeEtat(ETAT_2)
IMG_1=ComplèteRep(fRepExe())+"1.pdf"
Si Pas fSupprime(ComplèteRep(fRepExe())+"1.pdf") alors
     Erreur(ErreurInfo(errMessage))
FIN

[GestApp]

merci pour votre aide toujours le même problème

[GestApp]

Bonjour,

Voici mon code final en cas quelqu'un aura besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
iAperçu(iPDF, "C:\Users\WD\Desktop\B\1.pdf")
iInitRequêteEtat(ETAT_2)
iImprimeEtat(ETAT_2)
IMG_1=ComplèteRep(fRepExe())+"C:\Users\WD\Desktop\B\1.pdf"
fSupprime("C:\Users\WD\Desktop\B\1.pdf")

et la suppression est définitive pas dans la corbeille

merci merci merci
problème résolu.

[frenchsting]

Tant mieux si ça marche mais je suis très surpris par cette ligne : IMG_1=ComplèteRep(fRepExe())+"C:\Users\WD\Desktop\B\1.pdf"

[GestApp]

Bonjour,

Merci pour la remarque j'ai pas fais attention j'ai copié de l'ancienne version

Voici le code qui fonction correctement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
iAperçu(iPDF, "C:\Users\WD\Desktop\B\1.pdf")
iInitRequêteEtat(ETAT_2)
iImprimeEtat(ETAT_2)
IMG_1="C:\Users\WD\Desktop\B\1.pdf"
IMG_1..Zoom =zoomAdapteTaille
fSupprime("C:\Users\WD\Desktop\B\1.pdf")

[frenchsting]

Ca me plait beaucoup plus même si...
1. Tu aurais pu utiliser une variable au lieu de répéter ton chemin à chaque fois "C:\users...."
2. Tu dois être certaine qu'un utilisateur WD ait été créé sur le poste destination et que sur le bureau un dossier "B" existe bien...

[GestApp]

Ca me plait beaucoup plus même si...
1. Tu aurais pu utiliser une variable au lieu de répéter ton chemin à chaque fois "C:\users...."
2. Tu dois être certaine qu'un utilisateur WD ait été créé sur le poste destination et que sur le bureau un dossier "B" existe bien...

Ok je le ferai merci pour les remarques.