Access : Controler les marges d'un etat

Access : Controler les marges d'un etat - VB/VBA/VBS - Programmation

Marsh Posté le 11-09-2002 à 14:29:07    

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

Reply

Marsh Posté le 11-09-2002 à 14:29:07   

Reply

Marsh Posté le 12-09-2002 à 09:10:25    

euh, ben up quoi  :ouch:

Reply

Marsh Posté le 12-09-2002 à 15:31:07    

ça n'inspire personne ?  :??:

Reply

Marsh Posté le 18-09-2002 à 11:38:38    

tu a ce code dans l'aide d'access
 
 

Code :
  1. Type ch_PRTMIP
  2.     chRGB As String * 28
  3. End Type
  4. Type type_PRTMIP
  5.     xMargeGauche As Long
  6.     yMargeHaut As Long
  7.     xMargeDroite As Long
  8.     yMargeBas As Long
  9.     fDonnéesSeulement As Long
  10.     xLargeur As Long
  11.     yHauteur As Long
  12.     fTailleDesEléments As Long
  13.     xNombreDeColonnes As Long
  14.     yEspacementDeColonnes As Long
  15.     xEspacementDeLignes As Long
  16.     rDisposition As Long
  17.     fImpressionRapide As Long
  18.     fFeuilleDeDonnées As Long
  19. End Type
  21. Sub PrtMipColonnes(chNom As String)
  22.     Dim ChaînePrtMip As ch_PRTMIP
  23.     Dim PM As type_PRTMIP
  24.     Dim rpt As Report
  25.     Const PM_HORIZONTALCOLS = 1953
  26.     Const PM_VERTICALCOLS = 1954
  27.     DoCmd.OpenReport chNom, acDesign
  28.     Set rpt = Reports(chNom)
  29.     ChaînePrtMip.chRGB = rpt.PrtMip
  30.     LSet PM = ChaînePrtMip
  31.     ' Crée deux colonnes.
  32.     PM.entColonnes = 2
  33.     ' Définit 0,25 pouces d'espacement entre les lignes.
  34.     PM.entEspacementDeLignes = 0.25 * 1440
  35.     ' Définit 0,5 pouces d'espacement entre les colonnes.
  36.     PM.entEspacementDeColonnes = 0.5 * 1440
  37.     PM.entDisposition = PM_HORIZONTALCOLS
  38.    
  39.     LSet ChaînePrtMip = PM            ' Met à jour la propriété.
  40.     rpt.PrtMip = ChaînePrtMip.RGB
  41. End Sub
  42. L'exemple suivant de la propriété PrtMip indique comment définir toutes les marges pour qu'elles aient 1 pouce de large.
  44. Sub DéfinirMargesParDéfaut(chNom As String)
  45.     Dim ChaînePrtMip As ch_PRTMIP
  46.     Dim PM As type_PRTMIP
  47.     Dim rpt As Report
  48.     DoCmd.OpenReport chNom, acDesign
  49.     Set rpt = Reports(chNom)
  50.     ChaînePrtMip.chRGB = rpt.PrtMip
  51.     LSet PM = ChaînePrtMip
  52.     PM.entMargeGauche = 1 * 1440    ' Définit les marges.
  53.     PM.entMargeHaut = 1 * 1440
  54.     PM.entMargeDroite = 1 * 1440
  55.     PM.entMargeBas = 1 * 1440
  56.     LSet ChaînePrtMip = PM            ' Met à jour la propriété.
  57.     rpt.PrtMip = ChaînePrtMip.chRGB
  58. End Sub


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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed