Bases de Datos > Crystal Reports

 Imprimir Con Cristal Reports 9.2

(1/1)

LeGatoRojo:
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 ---  Private Sub crViewer_PrintButtonClicked(UseDefault As Boolean)    Dim Crp As CRAXDRT.Report    Dim Cra As CRAXDRT.Application    Set Cra = New CRAXDRT.Application    Set Crp = Cra.OpenReport(rpt)     Crp.PaperSize = crPaperLetter    Crp.PaperOrientation = crLandscape    Crp.PrintOutEnd Sub   
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.

LeGatoRojo:
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

--- Fin de la cita ---

Navegación

[0] Índice de Mensajes