PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Opening the created pdf file from report preview
Opening the created pdf file from report preview
Débuté par Alena, 13 fév. 2025 10:43 - 2 réponses
Posté le 13 février 2025 - 10:43
Does anybody know the answer? :
In the report viewer - Export - PDF,
The PDF file is saved and then appears the window with the question:
"Do you want to open the created document ?"
Is it possible to prevent this window from appearing?
Thanks
Posté le 13 février 2025 - 13:56
Hello

I see your problem, you want not to display the message to see the file in PDF, I have a very effective solution for you

1. You will first have to create the state to save, either in A4 format | or in A3 format | other ...

For this case, you will have to copy this program
// EDD (02/25): create a button field to activate the saving of the PDF file and copy this program
LOCAL
cExport_Etat is ClExport_Etat
cExport_Etat:m_sEtat = "ETT_Export"
cExport_Etat:Validation()
IF cExport_Etat:m_bRetour = True THEN
cExport_Etat:Imprimer()
Info("PDF file saving is successful.")
END

// EDD (02/25): create a new class ClExport_Etat
ClExport_Etat est une Classe
m_bRetour is booléen
m_sEtat is string
FIN

// EDD (02/25): create three methods in the ClExport_Etat class
PROCÉDURE Imprimer()
LOCAL
dhDate_Heure is DateHeure = DateHeureSys()
sString is string = fRepExe() + "\Etat"
//iAperçu()
IF fRépertoireExiste(sString) = False THEN
fRepCrée(sString)
END
sString = sString + "\PDF_" + Left(dhDate_Heure, 14) + ".pdf"// EDD (02/25) : 20250213152810
iDestination(iPDF, sString)
iImprimeEtat(:m_sEtat)
IF ErreurDétectée = True THEN
Info(ErreurInfo(errComplet))
EndProgram()
END

PROCÉDURE Validation()
:m_bRetour = True
IF NoSpace(:m_sEtat) = "" THEN
:m_bRetour = False
Info("Please fill in the state name.")
END

NB: this program is very operational, just the creation of the state which can be long

Best regards
Mr.RATSIMANDRESY
Niry Aina Eddy
Posté le 13 février 2025 - 16:11
Hello,
it is very interesting solution,
I will try.
Thank you very much