1

esta es la pantalla donde visualiso el crystal report introducir la descripción de la imagen aquí Quiero generar un reporte para guardarlo e imprimirlo al mismo tiempo *Uso el siguiente código para *imprimir. ( el codigo siguiente es proporcionado por uno de mis compañeros, dice el que si funciona pero a mi no no se cual sea la diferencia**

Dim Message As String
    Dim conn As New SqlConnection
    conn.ConnectionString = conexion
    Try
        Dim comando As New SqlCommand
        comando.CommandText = ("INSERT INTO 
    Dim cn2 As New SqlConnection
    'Dim encontro As String
    cn2.ConnectionString = conexion
    Dim cmd2 As New SqlCommand()
    cmd2.CommandText = "SELECT TOP 1 id FROM Dictamen ORDER BY id DESC "
    Label1.Text & "'"
    cmd2.Connection = cn2
    cn2.Open()
    Dim dr As SqlDataReader
    dr = cmd2.ExecuteReader
    While dr.Read()
        encontro = True
        Label2.Text() = dr.Item("id").ToString()
    End While
    Response.Redirect("reportedictamen.aspx?id=" & Label2.Text & "")
End Sub

** Al momento de dar imprimir manda a una pagina en blanco** introducir la descripción de la imagen aquí ¿alguna solución?

Y el siguiente Codigo en Crystal Viewer

    Imports System.Data.SqlClient
    Imports System.Data
    Imports CrystalDecisions.CrystalReports
    Imports CrystalDecisions.CrystalReports.Engine
    Imports CrystalDecisions.ReportSource
    Imports CrystalDecisions.Shared
Public Class reportedictamen
    Inherits System.Web.UI.Page
    Dim conexion As String = ConfigurationManager.ConnectionStrings("Dictamen").ConnectionString
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load       
        Dim ireport As New ReportDocument()
        ireport = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim iConnectionInfo As ConnectionInfo = New ConnectionInfo()
        iConnectionInfo.DatabaseName = "(base de datos)"
        iConnectionInfo.UserID = "(Usuario)"
        iConnectionInfo.Password = "(Pass)"
        iConnectionInfo.ServerName = "(Ip del servidor)"
        iConnectionInfo.Type = ConnectionInfoType.SQL
        ireport.FileName = "D:\sistemas\net\Dictamenes\Dictamenes\reportes\CrystalReport1.rpt"
        SetDBLogonForReport(iConnectionInfo, ireport)
        ireport.RecordSelectionFormula = "{dictamen.id} = " & Request.QueryString("id") & ""
        Me.CrystalReportViewer1.ReportSource = ireport

    End Sub
    Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        'salto
        Dim myTables As Tables = myReportDocument.Database.Tables
        '-
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
    End Sub

Si alguien puede darme soporte por discord o por Facebook le agredeceria mucho

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.