2 files changed, 5 insertions, 2 deletions
diff --git a/extras/contributed/report_tool/reportengine/u_imprime.pas b/extras/contributed/report_tool/reportengine/u_imprime.pas
index 9f706924..6952ee3f 100644
--- a/extras/contributed/report_tool/reportengine/u_imprime.pas
+++ b/extras/contributed/report_tool/reportengine/u_imprime.pas
@@ -2125,6 +2125,7 @@ then
 Bords.Free;
 Textes.Free;
 ALigne.Free;
+PdfPage.Free;
 DecimalSeparator:= OldSeparator;
 inherited;
 end;
@@ -2139,7 +2140,9 @@ FMesure:= IniMesure;
 FPreparation:= ppPrepare;
 FVisualisation:= IniVisu;
 PrepareFormat;
-CreateVisu;
+if IniVisu
+then
+  CreateVisu;
 FFonteCourante:= -1;
 FInterLCourante:= -1;
 FGroupe:= False;
diff --git a/extras/contributed/report_tool/reportengine/u_pdf.pas b/extras/contributed/report_tool/reportengine/u_pdf.pas
index facfd399..29b26973 100644
--- a/extras/contributed/report_tool/reportengine/u_pdf.pas
+++ b/extras/contributed/report_tool/reportengine/u_pdf.pas
@@ -1448,7 +1448,7 @@ if PdfPage.Count> 0
 then
   for CptPage:= 0 to Pred(PdfPage.Count) do
     TPdfElement(PdfPage[CptPage]).Free;
-PdfPage.Free;
+//PdfPage.Free;
 end;
 
 destructor TPdfDocument.Destroy;