SoloCodigo

Bases de Datos => Crystal Reports => Mensaje iniciado por: LeGatoRojo en Jueves 6 de Septiembre de 2007, 01:54

Título: Imprimir Con Cristal Reports 9.2
Publicado por: LeGatoRojo en Jueves 6 de Septiembre de 2007, 01:54

Hola a todos, tengo un sistema que genera reportes desde crystal 9.2, y bueno esta habilitado el boton de imprimir, pero al hacer click en este ultimo aparece una pequeña ventana de dialogo que al darle aceptar simplemente no hace nada. solucione esto poniendo el siguiente código al evente de click en esta mugre boton

Código: Text

1.  
2.  
3. Private Sub crViewer_PrintButtonClicked(UseDefault As Boolean)
4.     Dim Crp As CRAXDRT.Report
5.     Dim Cra As CRAXDRT.Application
6.     Set Cra = New CRAXDRT.Application
7.     Set Crp = Cra.OpenReport(rpt)
8.  
9.     Crp.PaperSize = crPaperLetter
10.     Crp.PaperOrientation = crLandscape
11.     Crp.PrintOut
12. End Sub
13.  
14.  
15.  

pero me aparece dos veces la ventana de dialogo, una que hace todo bien, y otra que de plano no hace nada(je de hecho esta es la original de este boton), alguién sabe como desaparecer la ventan de dialogo del boton imprimir o alguna manera de imprimir sin ver estas dos ventanas.

Título: Re: Imprimir Con Cristal Reports 9.2
Publicado por: LeGatoRojo en Martes 11 de Septiembre de 2007, 19:44

jejejeje bueno finalmente lo solucione así:

Citar

Private Sub crViewer_PrintButtonClicked(UseDefault As Boolean)
    UseDefault = False
    Dim Crp As CRAXDRT.Report
    Dim Cra As CRAXDRT.Application
    Set Cra = New CRAXDRT.Application
    Set Crp = Cra.OpenReport("reporte.rpt")
    Crp.PaperSize = crPaperLetter
    Crp.PaperOrientation = crLandscape
    Crp.PrintOut
End Sub