openReport

Borja
07 de Diciembre del 2005
Buenas,
estoy intentando mostrar un informe de access desde una aplicación Visual Basic y no consigo hacer que el informe se abra y se visualize en modo acViewPreview. El programa no casca pero no se ve el informe.
El código empleado es:
Dim acc As Access.Application
Set acc = New Access.Application
Dim informe As String

informe = "LISTADO DE OBRAS"

'modo de presentar la informacion.
'Const acViewDesing = 0 modo diseño
'Const acViewNormal = 1 modo impresion
'Const acViewPreview = 2 modo preview
With acc
.OpenCurrentDatabase (App.Path & "dbcontabilidad.mdb")
.DoCmd.OpenReport informe, acViewPreview
.CloseCurrentDatabase
.Quit
End With

Sin embargo en modo acViewNormal (por impresora) no tengo problemas.
Gracias.

UnoKeVa
07 de Diciembre del 2005
Tienes que hacer visible la aplicación que lanzas, pon esto dentro del with:

.Visible = True

Y ten cuidado porque justo después cierras la aplicación, así que te lo abriría y cerraría de la misma.

Espero que te sirva,

Saludos

Poyo Elias
07 de Diciembre del 2005
With acc
.OpenCurrentDatabase (App.Path & "dbcontabilidad.mdb")
.visible=TRUE (WEEEEEEY)
.DoCmd.OpenReport informe, acViewPreview
.CloseCurrentDatabase
.Quit