Imprimir CrystalReportViewer

Question

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.

Answer 1

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

Answer 2

no funiona????, estas seguro ??

Answer 3

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

Answer 4

utilizo el crystalreportviewer, lo he probado en IE9, y en Chrome y nada...

Answer 5

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

Answer 6

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.

Answer 7

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.

Answer 8

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?

Answer 9

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.

Answer 10

Perdon, utilizo VB2012, con CR12, me parece raro que no tenga esas propiedades..

Answer 11

Hola xRaf!

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

Saludos.

---

Eder Costa
LATAM Forum Support Engineer
Microsoft Corporation