Visualizar un reporte access desde vb
Tengo varios reportes en ACCESS y necesito tener una vista previa de estos desde VB, ante de imprimirlos, alguien sabe com se puede hacer esto, gracias de antemano
1 respuesta
Respuesta de gcsanchez
1
Prueba con este código, yo lo he probado con una b.d. de access 97, es posible que funcione con otras versiones:
Dim objAccess as Objet
'modo de presentar la informacion.
Const acViewDesing = 0 'modo diseño
Const acViewNormal = 1 'modo impresion
Const acViewPreview = 2 'modo preview
'creamos el objeto
Set objAccess = CreateObject("access.application.8")
'abrimos la B.D. que nos interesa
objAccess.OpenCurrentDatabase "tubase.mdb"
'Lanzamos el informe que nos interesa
objAccess.DoCmd.OpenReport "Informe",acViewPreview
'hacemos visible la ventana de access
objAccess.Visible = true
Dim objAccess as Objet
'modo de presentar la informacion.
Const acViewDesing = 0 'modo diseño
Const acViewNormal = 1 'modo impresion
Const acViewPreview = 2 'modo preview
'creamos el objeto
Set objAccess = CreateObject("access.application.8")
'abrimos la B.D. que nos interesa
objAccess.OpenCurrentDatabase "tubase.mdb"
'Lanzamos el informe que nos interesa
objAccess.DoCmd.OpenReport "Informe",acViewPreview
'hacemos visible la ventana de access
objAccess.Visible = true
