diff --git a/ba/ba2400.cpp b/ba/ba2400.cpp
index 598abb536..be108f81e 100755
--- a/ba/ba2400.cpp
+++ b/ba/ba2400.cpp
@@ -31,7 +31,7 @@ TTab_form::TTab_form(const char* name) : TForm(name)
   TIsamtempfile* tmp = new TIsamtempfile(LF_TABCOM, t, FALSE);
   relation()->replace(tmp);
   
-  c->setfilter("B0==\"\"");    // Esclude le deleghe gia' stampate
+  c->setfilter("B0!=\"X\"");    // Esclude le deleghe gia' stampate
 }
 
 word TTab_form::set_body(word p, bool u)
@@ -115,10 +115,12 @@ bool TTab_form::validate(TForm_item& fld, TToken_string& s)
 ///////////////////////////////////////////////////////////
 
 class TForm_printer : public TApplication
-{
+{ 
+  TLocalisamfile* _tabcom;
+  
 protected:
   virtual bool create();
-
+  virtual bool destroy();
 public:
   TForm_printer() {}
   virtual ~TForm_printer() {}
@@ -134,13 +136,18 @@ bool TForm_printer::create()
   TFilename form(argv(2)); form.ext("frm");
   if (!fexist(form))
     return error_box("Il profilo %s non esiste", (const char*)form);
-
+  _tabcom = new TLocalisamfile(LF_TABCOM);
   TTab_form f(form);
   f.print();  
   
   return TRUE;
 }
 
+bool TForm_printer::destroy()
+{                         
+  delete _tabcom;
+  return TApplication::destroy();
+}
 
 int ba2400(int argc, char* argv[])
 {