Modifier le facteur d'échelle d'un état en runtime

J'utilise =E0 ce jour la proprit=E9 PrtDevMode (bibblioth=E8que=20
wzfrmrpt.mda) d'un =E9tat pour modifier le facteur=20
d'=E9chelle. Tout marche parfaitement en mode normal (c'est=20
=E0 dire lorsque qu'Access est install=E9 sur le micro). Par=20
contre, cette propri=E9t=E9 n'est plus accessible en mode run-
time car il faut pour cela ouvrir l'=E9tat en mode=20
cr=E9ation. Du coup, je ne peux pas distribuer mon=20
d=E9veloppement. Y a t-il un autre moyen pour modifier le=20
facteur d'=E9chele d'un =E9tat ?

Merci
Luc

PS Voil=E0 le code utilis=E9 :=20


Sub ChangeEchelleEtat_OnOpen (MonEtat As String, vEchelle=20
As Integer, vTaillePapier As Integer)
Dim vStrEchelle As String
vStrEchelle =3D Str(vEchelle)
On Error GoTo Err_ChangeEchelleEtat_OnOpen
Dim dm As zwtDevModeStr ' Structures d=E9finies dans le=20
module zwAllGlobals de WZFRMRPT.MDA.
Dim DevMode As zwtDeviceMode
DoCmd OpenReport MonEtat, A_DESIGN
Reports(MonEtat).Painting =3D False
If Not IsNull(Reports(MonEtat).PrtDevMode) Then
dm.rgb =3D Reports(MonEtat).PrtDevMode
LSet DevMode =3D dm
DevMode.dmScale =3D vEchelle
LSet dm =3D DevMode
Reports(MonEtat).PrtDevMode =3D dm.rgb
DoCmd SetWarnings False
SendKeys "{Enter}", False
DoCmd DoMenuItem 7, A_FILE, 2
DoCmd SetWarnings True
End If

Reports(MonEtat).Painting =3D True
DoCmd Close A_REPORT, MonEtat

Exit_ChangeEchelleEtat_OnOpen:
Exit Sub
Err_ChangeEchelleEtat_OnOpen:
Select Case Err
Case Else
MsgBox "Fonction ChangeEchelleEtat_OnOpen " & Chr
(13) & Str(Err) & ":" & Error$
Resume Exit_ChangeEchelleEtat_OnOpen
Resume
End Select

End Sub