lunes, 18 de marzo de 2013

Exportar solo a PDF desde un ReportViewer

A continuación tenemos un ejemplo que nos permitirá filtrar los elementos del combobox que se encuentra en el ReportViewer. 

Los ítems Excel y Word pasaremos a ocultar y solo mostraremos PDF.


Código Fuente


Paso 1: Importar dependencias

Imports System.Reflection

Paso 2: Programamos el Load del ReportViewer.

Private Sub ReportViewer1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ReportViewer1.Load
Try
    For Each elemento As Microsoft.Reporting.WinForms.RenderingExtension In ReportViewer1.LocalReport.ListRenderingExtensions
                'ponemos la condición para evitar que se muestre la exportación a Excel y a Word
      If elemento.Name = "Excel" Or elemento.Name = "WORD" Then
       'traemos la información del campo con sus respectivos flags
        Dim infCampo As FieldInfo = elemento.[GetType]().GetField("m_isVisible"BindingFlags.Instance Or BindingFlags.NonPublic)
        'colocamos el valor de false a la extension
        infCampo.SetValue(elemento, False)
       End If
    Next
 Catch ex As Exception
    MessageBox.Show(ex.Message, "vb.net"MessageBoxButtons.OK, MessageBoxIcon.Error)
 End Try

End Sub

1 comentario:

  1. How to play spades online - TITONNAR
    How to titanium exhaust tips play spades online titanium rainbow quartz In a standard 52-card deck, a microtouch solo titanium player plays is titanium a metal a standard 52-card titanium tv apk deck of playing cards. They can also

    ResponderEliminar