Contabilidad2/CatCuentas.aspx

@@ -55,6 +55,9 @@
     Catálogo de Cuentas Contables
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+            <li>
+                <asp:LinkButton ID="LnkImprimirExcel" runat="server"  OnClick="LnkImprimirExcel_Click" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color:#686868;"></i> Imprimir Cuentas</asp:LinkButton>
+            </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upcuentas" runat="server" UpdateMode="Conditional">

Contabilidad2/CatCuentas.aspx.vb

@@ -1,5 +1,6 @@
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Contabilidad2_CatCuentas
     Inherits ClsPaginas
@@ -673,5 +674,19 @@ Partial Class Contabilidad2_CatCuentas
             End Select
         End If
     End Sub
+    Protected Sub LnkImprimirExcel_Click(sender As Object, e As EventArgs)
+        Imprime("Excel")
+    End Sub
+    Private Sub Imprime(Formato As String)
+        If DtDatos IsNot Nothing Then
 
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+            ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", DtDatos, params, "Cuentas", Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
 End Class