none
crear impresion con crystal reports RRS feed

  • Pregunta

  • Hola muchachos los molesto otra vez lo que pasa es que tengo un problema tengo 1 form web con 1 text box y 2 botones uno de ellos genera una vista previa de un docuemento en crystal report el cual fuinciona bn pero el otro debe imprimir el documento de una sin vista previa que solo lo oprima y imprima el documento al que se hace referencia pero no funciona lde dejo el codigo del boton de impresion 

    se supone que cuando doy click en imprimir el tomaa el parametro del text box y lo pasa a esta que es la que eberia ejecutar la impresion pero no se que pasa me pueden colaborar que pena muchachos

     

     

    Imports System.Data

    Imports CrystalDecisions.CrystalReports.Engine

    Imports System.IO

     

    Partial Class Print

        Inherits System.Web.UI.Page

     

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            If Not Page.IsPostBack Then

                Dim strTipo As String = Request.QueryString("Tipo")

     

                Select Case UCase(strTipo)

                    Case "INF1"

                        Dim strNumero As String = Request.QueryString("Numero")

     

                        Dim clsAnatomia As Anatomia = New Anatomia

     

                        Dim ds As DataSet = New DataSet

                        ds = clsAnatomia.InfAnatomia(strNumero)

     

     

                        If ds.Tables(0).Rows.Count > 0 Then

                            Dim dr As DataRow = ds.Tables(0).Rows(0)

     

                            Dim strPath As String = Server.MapPath("AnatomiaRpt.rpt")

     

                            If Not strPath = String.Empty Then

     

     

                                'Me.crsReporte.ReportDocument.PrintToPrinter(strPath, True, strPath, strPath)

                                Me.crsReporte.ReportDocument.SetDataSource(ds.Tables(0))

     

                            Else

                                Response.Write("No se encuentra el reporte.")

                                Exit Sub

                            End If

     

                        Else

                            Response.Write("No hay datos para mostrar")

                            Exit Sub

                        End If

     

     

     

                        Dim Reporte As ReportDocument = New ReportDocument

                        Reporte = Me.crsReporte.ReportDocument

     

                        Dim oStream As New MemoryStream

     

                        'oStream = Reporte.PrintToPrinter()

                        oStream = Reporte.ExportToStream(CrystalDecisions.Shared.PrinterDuplex.Default)

     

                        Response.Clear()

                        Response.Buffer = True

                        Response.ContentType = "application/pdf"

                        Response.BinaryWrite(oStream.ToArray())

                        Response.End()

                End Select

            End If

     

        End Sub

    End Class

     


    Carlos
    jueves, 10 de noviembre de 2011 19:42