**esta es la pantalla donde visualiso el crystal report**
[![introducir la descripción de la imagen aquí][1]][1]
**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í][2]][2]
*¿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*


  [1]: https://i.sstatic.net/ffmik.png
  [2]: https://i.sstatic.net/POEut.png