none
Imprimir CrystalReportViewer RRS feed

  • Pregunta

  • Buenas tardes, tengfo un problema quizas me puedan ayudar,

    lo que sucede es que yo genero un reporte que esta en un crystalreportviewer, el reporte se muestra correctamente y pue sse carga en la pantalla, todo bien.

    El problema aparece que al dar clic en el botón imprimir o / exportar del crystalreporviewer no sucede nada.. y pues por ende no imprime ni exporta el reporte, solo se visualiza.

    Estoy usando VB ASP,NET2010 y el reporte es CrystalReports2010,

    por otro lado si la solucion me es compleja quisiera llegar a tener un propio botón donde me pueda dar la opción a escojer en que formato puedo exportar el reporte (PDF,WORD,EXCEL) para ya posteriormente imprimirlo

    Muchas Gracias.

    • Cambiado Eder Costa miércoles, 29 de agosto de 2012 17:15 Cambiado de foro Asp.net (De:ASP.NET)
    jueves, 23 de agosto de 2012 17:02

Todas las respuestas

  • Hola,

    Es porque el crystal reports no funciona para web, solo para cliente-servidor, tienes que programar tus botones de exportar e imprimir, te ayudaré con algo de código:

     Protected Sub btnImprimir_Click(sender As Object, e As ImageClickEventArgs)
            Dim maqui As New MaquinasDAO()
            Dim crm As New crMaquina()
            crm.SetDataSource(maqui.datos("select * from MAQUINA"))
            crm.PrintToPrinter(1, false, 0, 0)
    
        End Sub
    
    Saludos

    jueves, 23 de agosto de 2012 18:54
  • no funiona????, estas seguro ??

    jueves, 23 de agosto de 2012 18:56
  • El problema aparece que al dar clic en el botón imprimir o / exportar del crystalreporviewer no sucede nada.. y pues por ende no imprime ni exporta el reporte, solo se visualiza.

    que raro si usas el reportviewer en la paginas asp.net

    este al llegar al clienter deberia poder imprimir y exportar

    en que browser estas visualizando el reporte es el IE ? no obtienes un fallo de javascript o sea del cliente


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    jueves, 23 de agosto de 2012 18:58
  • utilizo el crystalreportviewer, lo he probado en IE9, y en Chrome y nada...
    jueves, 23 de agosto de 2012 19:00
  • que raro, porque la exportacion he impresion es parte de la funcionalidad del control viewer pero es una accion del cliente

    la verdad no he probado Crystal de la version 2010, quizas sea algun problema con este

    no has evaluado no usar Crystal sino usar Reporting Service

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    jueves, 23 de agosto de 2012 19:11
  • En el proyecto los reportes lo solicitarion con Crystal Reports, en todo caso, si me pudieran ayudar en crear un botón para que genere en otra pagina el Reporte en PDF para que el usuario lo pueda imprimir..

    Gracias Leandro por tu tiempo.

    jueves, 23 de agosto de 2012 19:15
  • Hola,

    A mi me pasaba lo mismo que a ti, bueno hasta ahora no lo soluciono, por eso te digo que los reportes en web no funciona, eso es lo que llegué a conclusión, por eso lo hice a mano, lo único que podrías hacer el cambiar el botón del exportar por uno personalizado tuyo, y después mandar a exportar y de ahí imprimir, es la mejor forma que un usuario puede imprimir documentos en web:

    Private Sub ChangeExportButton()
            For Each ctrl As Control In CrystalReportViewer1.Controls
                'Buscar toolstrip del visor de informes
                If TypeOf ctrl Is ToolStrip Then
                    Dim ts As ToolStrip = DirectCast(ctrl, ToolStrip)
    
                    For Each tsi As ToolStripItem In ts.Items
                        'Buscar el botón exportar por un ImageIndex
                        If TypeOf tsi Is ToolStripButton AndAlso tsi.ImageIndex = 10 Then
    
                            Dim crXb As ToolStripButton = DirectCast(tsi, ToolStripButton)
                            'Clonar el aspecto 
                            Dim tsb As New ToolStripButton()
                            tsb.Size = crXb.Size
                            tsb.Padding = crXb.Padding
                            tsb.Margin = crXb.Margin
                            tsb.TextImageRelation = crXb.TextImageRelation
    
                            tsb.Text = crXb.Text
                            tsb.ToolTipText = crXb.ToolTipText
                            tsb.ImageScaling = crXb.ImageScaling
                            tsb.ImageAlign = crXb.ImageAlign
                            tsb.ImageIndex = crXb.ImageIndex
                            tsb.Visible = crXb.Visible
                            tsb.Enabled = crXb.Enabled
    
                            'Añadir el nuevo botón
                            ts.Items.Insert(0, tsb)
    
                            AddHandler tsb.Click, AddressOf Export_Click
                            Exit For
                        End If
                    Next
                End If
            Next
            'Ocultar el botón por defecto
            CrystalReportViewer1.HasExportButton = False
        End Sub
        Private Sub Export_Click()
            Dim saveDialog As New SaveFileDialog
            saveDialog.Title = "Exportar Informe"
            saveDialog.Filter = "Adobe Acrobat (*.pdf)|*.pdf|Microsoft Excel (*.xls)|*.xlsa|Sólo datos de Microsoft Excel (*.xls)|*.xls|Microsoft Word (*.doc)|*.doc|Formato de texto enriquecido (*.rtf)|*.rtf"
            saveDialog.FilterIndex = -1
    
            If saveDialog.ShowDialog = DialogResult.OK Then
                Dim crDiskFileDestinationOptions As New DiskFileDestinationOptions
                Dim rptDoc As ReportDocument = DirectCast(CrystalReportViewer1.ReportSource, ReportDocument)
                Dim crExporOptions As ExportOptions = rptDoc.ExportOptions
                crDiskFileDestinationOptions.DiskFileName = saveDialog.FileName
                crExporOptions.ExportDestinationOptions = crDiskFileDestinationOptions
                crExporOptions.ExportDestinationType = ExportDestinationType.DiskFile
    
                Select Case saveDialog.FilterIndex
                    Case 1
                        crExporOptions.ExportFormatType = ExportFormatType.PortableDocFormat
                        Exit Select
                    Case 2
                        crExporOptions.ExportFormatType = ExportFormatType.Excel
                        Exit Select
                    Case 3
                        crExporOptions.ExportFormatType = ExportFormatType.ExcelRecord
                        Exit Select
                    Case 4
                        crExporOptions.ExportFormatType = ExportFormatType.WordForWindows
                        Exit Select
                    Case 5
                        crExporOptions.ExportFormatType = ExportFormatType.RichText
                        Exit Select
                End Select
                rptDoc.Export(crExporOptions)
            End If
        End Sub
    Si no es eso, anda a tu carpeta donde se instalo el crystal reports con el visual y le debe estar faltando algo.

    jueves, 23 de agosto de 2012 19:52
  • Utilizo el CR10, y en las propiedades de mi CRviewer no veo el ToolStrip.., solo tengo el EditorToolStrip, tampoco con el SaveFileDialog, talves son por los imports cuales son los que estas utilizando?
    jueves, 23 de agosto de 2012 20:02
  • Mmmm quizá porque yo uso el CR11, entonces donde se instalo el CR te debe estar faltando algo, lo siento pero no puedo ayudarte mas, me gustaría llegar a la solución del problema porque yo también lo he tenido

    saludos.

    jueves, 23 de agosto de 2012 20:16
  • Perdon, utilizo VB2012, con CR12, me parece raro que no tenga esas propiedades..
    jueves, 23 de agosto de 2012 20:18
  • Hola xRaf!

    Tu post se moverá en el foro adecuado para tu pregunta.

    Saludos.


    Eder Costa
    LATAM Forum Support Engineer
    Microsoft Corporation 

    • Editado Eder Costa miércoles, 29 de agosto de 2012 17:14 .
    miércoles, 29 de agosto de 2012 17:14