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
  20. Sub PrtMipColonnes(chNom As String)
  21.     Dim ChaînePrtMip As ch_PRTMIP
  22.     Dim PM As type_PRTMIP
  23.     Dim rpt As Report
  24.     Const PM_HORIZONTALCOLS = 1953
  25.     Const PM_VERTICALCOLS = 1954
  26.     DoCmd.OpenReport chNom, acDesign
  27.     Set rpt = Reports(chNom)
  28.     ChaînePrtMip.chRGB = rpt.PrtMip
  29.     LSet PM = ChaînePrtMip
  30.     ' Crée deux colonnes.
  31.     PM.entColonnes = 2
  32.     ' Définit 0,25 pouces d'espacement entre les lignes.
  33.     PM.entEspacementDeLignes = 0.25 * 1440
  34.     ' Définit 0,5 pouces d'espacement entre les colonnes.
  35.     PM.entEspacementDeColonnes = 0.5 * 1440
  36.     PM.entDisposition = PM_HORIZONTALCOLS
  37.    
  38.     LSet ChaînePrtMip = PM            ' Met à jour la propriété.
  39.     rpt.PrtMip = ChaînePrtMip.RGB
  40. End Sub
  41. L'exemple suivant de la propriété PrtMip indique comment définir toutes les marges pour qu'elles aient 1 pouce de large.
  42. Sub DéfinirMargesParDéfaut(chNom As String)
  43.     Dim ChaînePrtMip As ch_PRTMIP
  44.     Dim PM As type_PRTMIP
  45.     Dim rpt As Report
  46.     DoCmd.OpenReport chNom, acDesign
  47.     Set rpt = Reports(chNom)
  48.     ChaînePrtMip.chRGB = rpt.PrtMip
  49.     LSet PM = ChaînePrtMip
  50.     PM.entMargeGauche = 1 * 1440    ' Définit les marges.
  51.     PM.entMargeHaut = 1 * 1440
  52.     PM.entMargeDroite = 1 * 1440
  53.     PM.entMargeBas = 1 * 1440
  54.     LSet ChaînePrtMip = PM            ' Met à jour la propriété.
  55.     rpt.PrtMip = ChaînePrtMip.chRGB
  56. 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