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
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.PrintOut
End 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.