esta es la pantalla donde visualiso el crystal report 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
** Al momento de dar imprimir manda a una pagina en blanco** ¿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