**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