impresion de un formato de excel en ResguardoMaterial y funcion de no cerrar al modal de recepcion usados

Inventarios/ResguardoMaterial.aspx.vb

@@ -3,6 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 Partial Class Inventarios_ResguardoMaterial
     Inherits ClsPaginas
 
@@ -1210,7 +1211,20 @@ Partial Class Inventarios_ResguardoMaterial
 
 #End Region
 
+    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        Imprime("Excel")
+    End Sub
+
+    Private Sub Imprime(Formato As String)
+        If DtMovimientosLiberacion IsNot Nothing Then
 
 
+            Dim params As New List(Of ReportParameter)
+
+            ImprimirPDF("Empresas/Grales/Formatos/ResguardoMaterial.rdlc", DtMovimientosLiberacion, params, String.Format("RepResguardoMaterial-{0}", Now.ToDateTime.ToShortDateString), Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
 
 End Class