Ayuda con Crystal Report y Visual basic

jfederico
02 de Mayo del 2006
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

mvallejos
02 de Mayo del 2006
ViewReport es para vista previa, creo que para sacarlo directamente por impresora hay que llamar al mètodo PrintOut

Saludos

jfederico
02 de Mayo del 2006
necesito el codigo para imprimir el reporte del ejemplo .. gacias !!!