Ayuda con Crystal Report y Visual basic
quiero imprimir un informe, sin pasar por el visualizador. Utilizo este codigo para visualizarlo.
Dim Sys_Crystal As CRAXDRT.Application
Dim Sys_Reporte As CRAXDRT.Report
Dim Sys_database As CRAXDRT.Database
Set Sys_Crystal = New CRAXDRT.Application
Set Sys_Reporte = Sys_Crystal.OpenReport(App.Path & "report1.rpt", 1)
Rs.MoveFirst
Sys_Reporte.Database.Tables(1).SetDataSource Rs, 3
CRV1.ReportSource = Sys_Reporte
Sys_Reporte.ReportTitle = "Este es el ReportTitle "
Sys_Reporte.ReportComments = " este es el mensaje que debe aparecer en comentarios !"
Sys_Reporte.ReportAuthor = "Este es el Mensaje que debe salir en Report Author "
CRV1.DisplayGroupTree = False
CRV1.ViewReport
CRV1.Visible = True
Dim Sys_Crystal As CRAXDRT.Application
Dim Sys_Reporte As CRAXDRT.Report
Dim Sys_database As CRAXDRT.Database
Set Sys_Crystal = New CRAXDRT.Application
Set Sys_Reporte = Sys_Crystal.OpenReport(App.Path & "report1.rpt", 1)
Rs.MoveFirst
Sys_Reporte.Database.Tables(1).SetDataSource Rs, 3
CRV1.ReportSource = Sys_Reporte
Sys_Reporte.ReportTitle = "Este es el ReportTitle "
Sys_Reporte.ReportComments = " este es el mensaje que debe aparecer en comentarios !"
Sys_Reporte.ReportAuthor = "Este es el Mensaje que debe salir en Report Author "
CRV1.DisplayGroupTree = False
CRV1.ViewReport
CRV1.Visible = True
ViewReport es para vista previa, creo que para sacarlo directamente por impresora hay que llamar al mètodo PrintOut
Saludos
Saludos