Discussion :

[n1portki]

Salut tout le monde.

Je recherche une méthode popur agrémenter les textbox autoextensible de mon état de ligne afin de partager mes données comme dans un tableau.

En recherchant sur developpez j'ai trouvé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 '
'
  Dim lngCouleur As Long
  Dim sngSommet As Single, sngGauche As Single
  Dim sngLargeur As Single, sngHauteur As Single
  Dim H As Long
 
 
  ' Définit l'échelle en pixels.
  Me.ScaleMode = 1
  sngSommet = 0
  ' Limite à gauche.
  sngGauche = Me.ScaleLeft + 5
  ' Limite en largeur.
  sngLargeur = Me.ScaleWidth - 10
  ' Limite en hauteur.
  sngHauteur = Me.ScaleHeight - 10
  ' Prend la couleur noire.
  lngCouleur = RGB(0, 0, 0)
 
    ' Là je prends le contrôle qui est extensible : 'Reference_produit'
    ' Si on a plusieurs contrôles extensibles il suffit de les comparer et de prendre le plus grand.
    ' J'ajoute 50 car le controle ne 'colle' pas en haut et bas de la section détail , pour aérer un peu.
    ' A ajuster à sa convenace...
    '--
  H = Me.Reference_Produit.Height + 50
 
    ' Cadre général
    '--
  Me.Line (sngSommet, sngGauche)-(sngLargeur, H), lngCouleur, B
 
    ' Correspond au 3 traits de séparation verticaux, toujours en pixel 
    ' En fait là aussi je fais des cadres...on doit aussi pouvoir faire des traits mais bon !
    '--
  Me.Line (sngSommet, sngGauche)-(7064, H), lngCouleur, B
  Me.Line (sngSommet, sngGauche)-(8054, H), lngCouleur, B
  Me.Line (sngSommet, sngGauche)-(9100, H), lngCouleur, B
 
 
End Sub

Ce code fonctionne pas mal puisque en aperçu avant impression je vois bien les lignes entourant chaque checkbox. Le problème apparaît dés que je lance l'impression, sur mon impression je ne voit pas apparaître ces lignes. Quelqu'un pourrait-il éclairer ma lanterne à ce sujet sachant que j'utilise access 2002.

Merci

[n1portki]

J'ai trouvé tout seul la réponse à mon problème. Cela venait du fait que j'imprimais en mode brouillon. Cependant j'aimerais bien savoir comment faire pour passer outre ce problème. Je ne voudrais pas que les utilisateurs de mon applis soient confronter à ce problème, il faudrait que depuis n'importe quelle type d'impression selectionnée les graphiques Line s'affiche correctement à l'impression.

Est ce que quelqu'un parmis vous aurait une solution. Cordialement.

[mouaa]

à part forcer le mode d'impression à ne pas être brouillon je vois pas