Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: TECNOSOFT en Abril 23, 2011, 08:19:29 pm

Título: Problema con pantalla de impresion directa Crytal 8.5
Publicado por: TECNOSOFT en Abril 23, 2011, 08:19:29 pm

Comunidad que tal.. tengo el siguiente problema cuando mando a imprimir directo con el crystal report 8.5 , antes de comenzar a imprimir me sale una pantalla de impresion .. alguien sabe como quitarla. he buscado por todas la opciones y nada.. esta pantalla tiene una opcion de cancel. entonces en ese momento si el usuario lo presiona cancela la impresion

Título: Re:PROBLEMA CON PANTALLA DE IMPRESION DIRECTA CRYSTAL 8.5
Publicado por: Bazooka en Abril 25, 2011, 12:39:52 am

Hola este codigo me funciona a la perfeccion

Código: [Seleccionar]

Private Sub Command1_Click()
         
         Call InitCrys
 
  With CR
        .Reset
        .ReportFileName = App.Path & "\Reports\rptProveedor.rpt"
        .Connect = "DSN=" & App.Path & "\rptCN.dsn;PWD=******"
   
        .WindowTitle = "Lista de Proveedores"

               
        .PageZoom 100
       
        .Action = 1
    End With

End Sub
           
Public Sub InitCrys()

    With CR
        .WindowState = crptMaximized
        .WindowShowCancelBtn = True
        .WindowShowCloseBtn = True
        .WindowShowExportBtn = True
        .WindowShowNavigationCtls = True
        .WindowShowPrintBtn = True
        .WindowShowPrintSetupBtn = True
        .WindowShowProgressCtls = True
        .WindowShowRefreshBtn = True
        .WindowShowSearchBtn = True
        .WindowShowZoomCtl = True
        .WindowMaxButton = True
        .WindowMinButton = True
    End With

End Sub
y solo aparece la ventana del reporte.