Access : Controler les marges d'un etat

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Access : Controler les marges d'un etat

tripanozoma

Trypanosoma brucei gambiens

Bonjour,
Je lance un état à partir d'un bouton sur un formulaire.
Cet état est prévu pour être édité avec des marges de 10. Or de façon aléatoire Access remet les marges de cet état à 25,4.
Comment forcer les marges ? Je n'ai pas trouver de propriétés correspondantes, j'ai écumé le web et n'ai trouvé qu'un code VB trop complexe et contraignant.
Merci !
TZ

Publicité

tripanozoma

Trypanosoma brucei gambiens

euh, ben up quoi :ouch:

tripanozoma

Trypanosoma brucei gambiens

ça n'inspire personne ? :??:

djer

tu a ce code dans l'aide d'access

Code :

Type ch_PRTMIP
chRGB As String * 28
End Type
Type type_PRTMIP
xMargeGauche As Long
yMargeHaut As Long
xMargeDroite As Long
yMargeBas As Long
fDonnéesSeulement As Long
xLargeur As Long
yHauteur As Long
fTailleDesEléments As Long
xNombreDeColonnes As Long
yEspacementDeColonnes As Long
xEspacementDeLignes As Long
rDisposition As Long
fImpressionRapide As Long
fFeuilleDeDonnées As Long
End Type
Sub PrtMipColonnes(chNom As String)
Dim ChaînePrtMip As ch_PRTMIP
Dim PM As type_PRTMIP
Dim rpt As Report
Const PM_HORIZONTALCOLS = 1953
Const PM_VERTICALCOLS = 1954
DoCmd.OpenReport chNom, acDesign
Set rpt = Reports(chNom)
ChaînePrtMip.chRGB = rpt.PrtMip
LSet PM = ChaînePrtMip
' Crée deux colonnes.
PM.entColonnes = 2
' Définit 0,25 pouces d'espacement entre les lignes.
PM.entEspacementDeLignes = 0.25 * 1440
' Définit 0,5 pouces d'espacement entre les colonnes.
PM.entEspacementDeColonnes = 0.5 * 1440
PM.entDisposition = PM_HORIZONTALCOLS
LSet ChaînePrtMip = PM ' Met à jour la propriété.
rpt.PrtMip = ChaînePrtMip.RGB
End Sub
L'exemple suivant de la propriété PrtMip indique comment définir toutes les marges pour qu'elles aient 1 pouce de large.
Sub DéfinirMargesParDéfaut(chNom As String)
Dim ChaînePrtMip As ch_PRTMIP
Dim PM As type_PRTMIP
Dim rpt As Report
DoCmd.OpenReport chNom, acDesign
Set rpt = Reports(chNom)
ChaînePrtMip.chRGB = rpt.PrtMip
LSet PM = ChaînePrtMip
PM.entMargeGauche = 1 * 1440 ' Définit les marges.
PM.entMargeHaut = 1 * 1440
PM.entMargeDroite = 1 * 1440
PM.entMargeBas = 1 * 1440
LSet ChaînePrtMip = PM ' Met à jour la propriété.
rpt.PrtMip = ChaînePrtMip.chRGB
End Sub

j'ai essayé,le pb c'est que ca ne marche que en mode creation...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Access : Controler les marges d'un etat

Sujets relatifs
ACCESS : Comment ouvrir un fichier sans l'executer	incompatiblité entre vb 6 et access 2000
[Access] Copier des données d'une table vers une autre	Comment créer un numeroauto dans access
[ASP - ACCESS] remplir une BD HELP !	Access > Programme exe
[ACCESS] En-têtes de pages sur états présents avec détail vide	Asp - Access- Probleme avec INSERT
[Access] Mise à 0 d'un champs par défaut	access et génération d'une valeur auto ???
Plus de sujets relatifs à : Access : Controler les marges d'un etat

Page générée en 0.036 secondes