Discussion :

[devalender]

Bonsoir à tous

j'ai une impression en pdf qui s'affiche de manière illisible :

Voici mon code standard

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
// Génère un nom de fichier unique
NomFicUnique = fRepWeb() + "\ETAT_Requete_" + DateSys() + HeureSys() + ".pdf"
 
// Paramètre la destination de l'impression
iDestination(iPDFGénérique, NomFicUnique)
 
// Passe les paramètres à la requête associée à l'état
iInitRequêteEtat(ETAT_BonDeCommande, SAI_NUMLIGNE, gsMonExerciceEncours)
 
// Imprime l'état ETAT_Requete
iImprimeEtat(ETAT_BonDeCommande)
 
// Extrait le nom et l'extension du fichier généré
NomFichier  = fExtraitChemin(NomFicUnique, fFichier + fExtension)
 
 
// Envoie le fichier dans le navigateur
FichierAffiche(ComplèteRep(fRepWeb())+NomFichier)

Et voici le résultat affiché :


Je ne vois pas ce que j'ai manqué !

Merci à tous

[devalender]

Après avoir fouillé un peu sur internet je suis tombé sur une discussion ou cet code à été proposé :

Code :

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

1
2
FichierAffiche(ComplèteRep(fRepWeb())+NomFichier,"application/pdf")

Je l'ai essayer ça marche !

Merci à tous