diff --git a/Modulos/Calendarios/Cliente/uEditorCalendarioBase.dfm b/Modulos/Calendarios/Cliente/uEditorCalendarioBase.dfm
index 1521860..16e9358 100644
--- a/Modulos/Calendarios/Cliente/uEditorCalendarioBase.dfm
+++ b/Modulos/Calendarios/Cliente/uEditorCalendarioBase.dfm
@@ -1,6 +1,6 @@
 inherited fEditorCalendarioBase: TfEditorCalendarioBase
-  Left = 784
-  Top = 337
+  Left = 804
+  Top = 227
   Align = alClient
   Caption = 'fEditorCalendarioBase'
   PixelsPerInch = 96
diff --git a/Modulos/Calendarios/Cliente/uEditorCalendarioBase.pas b/Modulos/Calendarios/Cliente/uEditorCalendarioBase.pas
index e6b7208..17df444 100644
--- a/Modulos/Calendarios/Cliente/uEditorCalendarioBase.pas
+++ b/Modulos/Calendarios/Cliente/uEditorCalendarioBase.pas
@@ -119,7 +119,12 @@ begin
   FViewCitas := Value;
 
   if Assigned(FViewCitas) then
+  begin
      FViewCitas.Calendario.OnBeforeEditing := cxSchedulerBeforeEditing;
+     dxComponentPrinter1Link2.Component := FViewCitas.Calendario;
+  end
+  else
+    dxComponentPrinter1Link2.Component := NIL;
 end;
 
 procedure TfEditorCalendarioBase.FormShow(Sender: TObject);
@@ -327,7 +332,7 @@ begin
     end;
     dxComponentPrinter1Link2.PrintRange.PrintFrom := FViewCitas.pAnchorDate;
     dxComponentPrinter1Link2.PrintRange.PrintTo := FViewCitas.pAnchorDate;
-//    dxComponentPrinter1.Preview(True, nil, nil);
+    dxComponentPrinter1.Preview(True, nil);
   end;
 end;
 
diff --git a/Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.dfm b/Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.dfm
index 9859805..5777b10 100644
--- a/Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.dfm
+++ b/Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.dfm
@@ -1,6 +1,6 @@
 inherited fEditorCalendarioMediciones: TfEditorCalendarioMediciones
-  Left = 529
-  Top = 184
+  Left = 250
+  Top = 139
   Width = 800
   Height = 646
   Caption = 'fEditorCalendarioMediciones'
diff --git a/Modulos/Calendarios/Cliente/uViewCalendarioBase.dfm b/Modulos/Calendarios/Cliente/uViewCalendarioBase.dfm
index bb74873..c98363a 100644
--- a/Modulos/Calendarios/Cliente/uViewCalendarioBase.dfm
+++ b/Modulos/Calendarios/Cliente/uViewCalendarioBase.dfm
@@ -1,12 +1,12 @@
 inherited frViewCalendarioBase: TfrViewCalendarioBase
-  Width = 443
-  Height = 270
+  Width = 777
+  Height = 550
   Align = alClient
   object cxScheduler: TcxScheduler
     Left = 0
     Top = 0
-    Width = 443
-    Height = 270
+    Width = 777
+    Height = 550
     DateNavigator.RowCount = 2
     DateNavigator.ShowWeekNumbers = False
     ViewDay.Active = True
@@ -33,13 +33,12 @@ inherited frViewCalendarioBase: TfrViewCalendarioBase
     OptionsView.ShowEventsWithoutResource = True
     OptionsView.WorkDays = [dMonday, dTuesday, dWednesday, dThursday, dFriday, dSaturday]
     OptionsView.WorkStart = 0.416666666666666700
-    OptionsView.WorkFinish = 0.854166666666666800
+    OptionsView.WorkFinish = 0.854166666666666700
     ParentFont = True
     ShowHint = True
     TabOrder = 0
-    Selection = 1
     Splitters = {
-      2C010000FA000000BB010000FF00000027010000000000002C0100000E010000}
-    StoredClientBounds = {0000000000000000BB0100000E010000}
+      7A020000FA00000009030000FF00000075020000000000007A02000026020000}
+    StoredClientBounds = {00000000000000000903000026020000}
   end
 end
diff --git a/Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.dfm b/Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.dfm
index e11a194..df68aaa 100644
--- a/Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.dfm
+++ b/Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.dfm
@@ -1,11 +1,14 @@
 inherited frViewCalendarioConFiltro: TfrViewCalendarioConFiltro
+  Width = 443
+  Height = 270
   inherited cxScheduler: TcxScheduler
+    Width = 443
+    Height = 270
     OnInitEventImages = cxSchedulerInitEventImages
     ControlBox.Control = pnlVendedores
     EventImages = ImageList1
     OptionsView.WorkStart = 0.416666666666666700
-    OptionsView.WorkFinish = 0.854166666666666800
-    Selection = 1
+    OptionsView.WorkFinish = 0.854166666666666700
     Splitters = {
       2C010000FA000000BB010000FF00000027010000000000002C0100000E010000}
     StoredClientBounds = {0000000000000000BB0100000E010000}
@@ -24,7 +27,7 @@ inherited frViewCalendarioConFiltro: TfrViewCalendarioConFiltro
         Left = 0
         Top = 18
         Width = 143
-        Height = 416
+        Height = 271
         Align = alClient
         Items = <>
         ParentFont = False