diff --git a/Source/GUIBase/uEditorBase.pas b/Source/GUIBase/uEditorBase.pas
index 63dded46..19111186 100644
--- a/Source/GUIBase/uEditorBase.pas
+++ b/Source/GUIBase/uEditorBase.pas
@@ -243,8 +243,23 @@ procedure TfEditorBase.actImprimirExecute(Sender: TObject);
 begin
   if actImprimir.Enabled then
   begin
-    ImprimirInterno;
-    ActualizarEstadoEditor;
+    if Modified then
+    begin
+      if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 +
+        '¿Desea guardarlos ahora?') = IDYES) then
+      begin
+        GuardarInterno;
+        ImprimirInterno;
+        ActualizarEstadoEditor;
+      end
+      else
+        ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
+    end
+    else
+    begin
+      ImprimirInterno;
+      ActualizarEstadoEditor;
+    end
   end;
 end;
 
@@ -275,8 +290,23 @@ procedure TfEditorBase.actPrevisualizarExecute(Sender: TObject);
 begin
   if actPrevisualizar.Enabled then
   begin
-    PrevisualizarInterno;
-    ActualizarEstadoEditor;
+    if Modified then
+    begin
+      if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 +
+        '¿Desea guardarlos ahora?') = IDYES) then
+      begin
+        GuardarInterno;
+        PrevisualizarInterno;
+        ActualizarEstadoEditor;
+      end
+      else
+        ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
+    end
+    else
+    begin
+      PrevisualizarInterno;
+      ActualizarEstadoEditor;
+    end;
   end;
 end;
 
diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm
index 4782b216..e20006f4 100644
--- a/Source/GUIBase/uEditorDBItem.dfm
+++ b/Source/GUIBase/uEditorDBItem.dfm
@@ -83,14 +83,8 @@ inherited fEditorDBItem: TfEditorDBItem
     ActivePage = pagGeneral
     Align = alClient
     TabOrder = 2
-    ExplicitTop = 117
-    ExplicitHeight = 320
     object pagGeneral: TTabSheet
       Caption = 'General'
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 292
     end
   end
   object PnlComentario: TPanel [4]
@@ -109,12 +103,14 @@ inherited fEditorDBItem: TfEditorDBItem
       AlignWithMargins = True
       Left = 6
       Top = 4
-      Width = 55
-      Height = 13
+      Width = 640
+      Height = 25
       Margins.Left = 5
       Align = alClient
       Caption = 'Comentario'
       WordWrap = True
+      ExplicitWidth = 55
+      ExplicitHeight = 13
     end
   end
   inherited EditorActionList: TActionList
diff --git a/Source/GUIBase/uEditorDBItem.pas b/Source/GUIBase/uEditorDBItem.pas
index 48098dc5..9e344841 100644
--- a/Source/GUIBase/uEditorDBItem.pas
+++ b/Source/GUIBase/uEditorDBItem.pas
@@ -32,8 +32,6 @@ type
     procedure SetComentario(const Value: Variant);
 
     procedure EliminarInterno; override;
-    procedure PrevisualizarInterno; override;
-    procedure ImprimirInterno; override;
     procedure ActualizarEstadoEditor; override;
 
   public
@@ -82,32 +80,6 @@ begin
   Result := FComentario;
 end;
 
-procedure TfEditorDBItem.ImprimirInterno;
-begin
-  inherited;
-  if Modified then
-  begin
-    if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede imprimir hasta que no se guarden.' + #10#13 +
-      '¿Desea guardarlos ahora?') = IDYES) then
-      actGuardar.Execute
-    else
-      ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
-  end;
-end;
-
-procedure TfEditorDBItem.PrevisualizarInterno;
-begin
-  inherited;
-  if Modified then
-  begin
-    if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 +
-      '¿Desea guardarlos ahora?') = IDYES) then
-      actGuardar.Execute
-    else
-      ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
-  end;
-end;
-
 procedure TfEditorDBItem.SetComentario(const Value: Variant);
 begin
   FComentario := Value;