[[cHackAll]]

Código Delphi [-]
var Printed: LongBool = False; // var global
 
procedure ImprimeInforme;
begin
 informe.print;
 Printed := True;
end;
 
...
begin
...
 if Printed then
  begin
//  ya imprimiste!!!
//  Printed := False; // para reiniciar la funcionalidad
...
  end;
...
end;
...