Propiedad prtMip de Access

Tengo problemas para poder configurar mediante código los margenes de configuración de impresora y de ancho y alto de detalle.
He estado probando con un formulario simple sin botones ni nada, sólo con el evento alAbrir, y me da este error...
"Error 2136 Para establecer esta propiedad, abra el formulario o informe en vista diseño"
Y si pruebo a configurar la página :
"Imposible ejecutar esta acción mientras se procesa un evento de formulario o de informe"
No se si esto es difícil o me estoy complicando bt la vida... ¿?
Me gustaría saber que estoy haciendo mal. El código del evento alAbrir es el siguiente:
Option Compare Database
Option Explicit
Const glrcprtMipSize = 28
Dim PMStr As cad_PRTMIP
Dim PM As glr_PRTMIP
Private Type cad_PRTMIP
strprtMip As String * glrcprtMipSize
End Type
Private Type glr_PRTMIP
xMargenIzquierdo As Long
yMargenSuperior As Long
xMargenDerecho As Long
yMargenInferior As Long
fSóloDatos As Long
xAncho As Long
yAlto As Long
fTamañoPredeterminado As Long
cxColumnas As Long
yEspacioColumna As Long
xEspacioFila As Long
rDiseñoElemento As Long
fFastPrinting As Long
fDatasheet As Long
End Type
Private Sub Form_Open(Cancel As Integer)
PMStr.strprtMip = Me.PrtMip
LSet PM = PMStr
PM.xMargenIzquierdo = 100
PM.xMargenDerecho = 100
PM.yMargenInferior = 100
PM.yMargenSuperior = 100
PM.xAncho = 5670
PM.yAlto = 8505
LSet PMStr = PM
Me.PrtMip = PMStr.strprtMip
End Sub