maximiser la fenêtre access

Bonjour,

J'affiche un aperçu des états Access avant impression dans mon programme. Le problème c'est qu'Access ne s'ouvre en taille maximale. Je sais comment maximisé l'état mais pas l'application en elle même. Voici mon code pour le moment :

Code:

1
2
3
4
5
6
7
8
9
10
 Dim oAccess As Access.Application
        ' Démarre une nouvelle instance d'Access pour l'automatisation :
        oAccess = New Access.ApplicationClass()
        ' Ouvre une base de données en mode exclusif :
        oAccess.OpenCurrentDatabase(filepath:=Application.StartupPath & "\mabase.mdb", Exclusive:=True)
        ' Affiche l'aperçu de l'état :
        oAccess.DoCmd.OpenReport("E_fiche_intervention", Access.AcView.acViewPreview)
        oAccess.Visible = True
'maximiser l'état
        oAccess.DoCmd.Maximize()

Merci d'avance