évenement fin d'entete ou section d'un entete

évenement fin d'entete ou section d'un entete - VB/VBA/VBS - Programmation

Marsh Posté le 27-04-2004 à 16:13:26    

Bonjour, dans un état access, pour encadrer un groupements de produits j'utilise :  
 

Code :
  1. sur la propriété impression d'un entete de groupe :
  3. Dim X1 As Single, Offset As Single
  4. Offset = 1440 / Me.GridX ' Convertit Grille X en twips
  5. X1 = etat2.Left - Offset  ' Calcule X1 en twips
  6. Me.Line (X1, X1)-(X1, 10000)   ' Dessine la ligne verticale
  7. Me.Line (10000, X1)-(10000, 10000)   ' Dessine la ligne verticale
  9.     Me.Line (X1, X1)-(10000, X1)   ' Dessine la ligne horizontale


 
Le problème c'est qu'il ne me mets pas de ligne à la fin de l'entete du groupe ni quand il y a une section :-/
 
Ces évenements sont il disponible?


Message édité par fcoisb le 27-04-2004 à 16:14:43
Reply

Marsh Posté le 27-04-2004 à 16:13:26   

Reply

Marsh Posté le 27-04-2004 à 17:17:17    

up

Reply

Marsh Posté le 27-04-2004 à 22:22:44    

up

Reply

Marsh Posté le 28-04-2004 à 10:44:49    

up

Reply

Marsh Posté le 28-04-2004 à 15:20:14    

up

Reply

Marsh Posté le 28-04-2004 à 16:02:03    

up

Reply

Marsh Posté le 28-04-2004 à 16:22:52    

c'est possible au moins?

Reply

Marsh Posté le 28-04-2004 à 18:22:27    

up

Reply

Marsh Posté le 29-04-2004 à 10:06:38    

up

Reply

Marsh Posté le 29-04-2004 à 15:36:58    

:sweat:  
 
c'est bon (si ça peut interesser quelqu'un) ...
 

Code :
  1. Dim X1 As Single
  2. Dim X2 As Single
  3. Dim Y1 As Single
  4. Dim Y2 As Single
  5. Dim offset As Single
  7.        ' Specify unit of measurement for coordinates on a page...
  8.        Me.ScaleMode = 1 ' ...in twips (1440 twips = 1 inch).
  10.        ' Define an offset of 1/8 inch from the text box to the rectangle.
  11.        '    offset = 1440 / Me.GridX ' Convertit Grille X en twips
  12.        'offset = 100
  13.        'offset = 0
  15.        ' X and Y coordinates for the top left corner of the box.
  16.        X1 = Me![etat3].Left ' - offset
  17.        Y1 = Me![etat3].Top ' - offset
  19.        ' X and Y coordinates for the bottom right corner of the box.
  20.        X2 = Me![etat3].Left + Me![etat3].Width' + offset
  21.        Y2 = Me![etat3].Top + Me![etat3].Height' + offset
  23.        Me.DrawWidth = 3        ' Width of the line (in pixels).
  24.        'Color = RGB(0, 0, 0)    ' Use black line color.
  26.        ' Draw the rectangle with the Line method.
  27.        'Me.Line (X1, Y1)-(X2, Y2)
  28.  
  30. Me.Line (X1, Y1)-(X1, Y2) 'ligne gauche
  31. Me.Line (X2, Y1)-(X2, Y2) 'ligne droite
  32.  
  35. If (nb1 = 1) Then
  36.        Me.Line (X1, Y1)-(X2, Y1) 'ligne haut
  37. End If
  39. If (nb2 = 1) Then
  40.        Me.Line (X1, Y2)-(X2, Y2) 'ligne bas
  41. End If

Reply

Sujets relatifs:

Leave a Replay

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