diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx
index 5bb9a18ac..8756cdd42 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx
@@ -18,9 +18,13 @@
             <li>
                 <asp:LinkButton runat="server" ID="BtnImprimir" OnClick="BtnImprimir_Click" data-toggle="tooltip" data-placement="left" title="PDF" Text="<i class='fa fa-file-pdf-o'></i> PDF"></asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnExcel" OnClick="BtnExcel_Click" data-toggle="tooltip" data-placement="left" title="XLS" Text="<i class='fa fa-file-excel-o'></i> Excel"></asp:LinkButton>
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="BtnImprimir" />
+            <asp:PostBackTrigger ControlID="BtnExcel" />
         </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index ed0a413f1..6efd21697 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -110,8 +110,31 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
 
         ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsadosClientes, params, "Entradas usados clientes", "PDF")
 
+    End Sub
+
+    Protected Sub BtnExcel_Click(sender As Object, e As EventArgs)
+
+
+        Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
+        Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)
+
+        Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today))
+
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Direccion", "Tamaulipas Esq. con Guadalupe Victoria"))
+        params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
+        params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text))
+        params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text))
+
+        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsadosClientes}
+
+        ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsadosClientes, params, "Entradas usados clientes", "Excel")
+
     End Sub
 
+
+
     Public Sub CargarVentasGrupo(sender As Object, e As EventArgs)
         Dim tempLink As LinkButton = CType(sender, LinkButton)
         Dim renglon As GridViewRow = CType(tempLink.NamingContainer, GridViewRow)