acomodo de layout en reportes

Inventarios/RepAlmacen.aspx.vb

@@ -77,11 +77,11 @@ Partial Class Inventarios_RepAlmacen
 
 #Region "I M P R I M I R  <i class='fa fa-print'></i>"
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
-        GVAlmacen.ExportToExcel("RepFacturas_" & Now.ToShortDateString())
+        'GVAlmacen.ExportToExcel("RepFacturas_" & Now.ToShortDateString())
+        GenerarPDF("EXCEL")
 
     End Sub
-    Private Sub GenerarPDF()
+    Private Sub GenerarPDF(Optional Formato As String = "PDF")
         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)
         Dim StrFiltro As New StringBuilder
@@ -100,7 +100,7 @@ Partial Class Inventarios_RepAlmacen
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
-        ImprimirPDF("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen")
+        ImprimirPDF("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato)
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         GenerarPDF()
@@ -243,5 +243,6 @@ Partial Class Inventarios_RepAlmacen
     End Sub
 
 #End Region
-
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+    End Sub
 End Class