ajustes al reporte

Bancos/RepSaldosDetalle.aspx.vb

@@ -177,13 +177,15 @@ Partial Class Bancos_RepSaldosDetalle
     End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
+        ImprimirReporte("Excel")
     End Sub
 
-
-
 #Region "P D F"
     Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
+        ImprimirReporte("PDF")
+    End Sub
+
+    Private Sub ImprimirReporte(formato As String)
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
@@ -218,7 +220,7 @@ Partial Class Bancos_RepSaldosDetalle
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
-        ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle")
+        ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato)
 
         Ban.Dispose()
     End Sub