Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Prueba con ésto : Dim Objaccess As Object 'Modo de presentar la información Const ACVIEWDESING = 0 'Modo de Diseño Const ACVIEWNORMAL = 1 'Modo de Impresión Directa Const ACVIEWPREVIEW = 2 'Modo de Impresión Preliminar 'Creamos el Objeto Set Objaccess = CreateObject("ACCESS.APPLICATION.8") 'Abrimos la base de datos Objaccess.opencurrentdatabase "c:\sistema\sistema.mdb" 'Lanzamos el informe que nos interesa Objaccess.docmd.openreport "catálogo de clientes", ACVIEWPREVIEW 'Hacemos visible la ventana access Objaccess.Visible = True MsgBox "Haga click en aceptar para cerrar previsualizacion" Objaccess.Visible = False End If