• Lunes 23 de Diciembre de 2024, 18:02

Autor Tema:  Imprimir Con Cristal Reports 9.2  (Leído 1912 veces)

LeGatoRojo

  • Miembro HIPER activo
  • ****
  • Mensajes: 552
  • Nacionalidad: mx
    • Ver Perfil
    • LeGatoRojo
Imprimir Con Cristal Reports 9.2
« en: Jueves 6 de Septiembre de 2007, 01:54 »
0
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.
Un día desperte y en lugar de dientes tenía colmillos, en lugar de manos, tenía garras; pero lo más impactante fue el color escarlata de mi pelaje.

LeGatoRojo

  • Miembro HIPER activo
  • ****
  • Mensajes: 552
  • Nacionalidad: mx
    • Ver Perfil
    • LeGatoRojo
Re: Imprimir Con Cristal Reports 9.2
« Respuesta #1 en: Martes 11 de Septiembre de 2007, 19:44 »
0
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
Un día desperte y en lugar de dientes tenía colmillos, en lugar de manos, tenía garras; pero lo más impactante fue el color escarlata de mi pelaje.