Imprimer une ligne selectionnée de MSFlexGrid [Résolu]

Signaler
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010
-
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
-
J'utilise dans mon application une MSFlexGrid reliée a une base de données avec ADOBD. Le mode de sélection de ma MSFlexGrid est par ligne, c'est à dire que quand l'utilisateur clique sur n'importe quelle cellule de la MSFlexGrid, la ligne entière est sélectionnée et deviens de couleur bleu.
Mon preblème est: je veux imprimer ce ligne selectionnée
précisément.
merci d'avance

6 réponses

Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010

[^^confus2]
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Dim myPrinter As Printer
Dim myElements(2) As String
Dim myElementPos(2) As Long
Dim i As Integer
Dim myLine As String

myLine = ""
myElements(0) = "Colonne NOM"
myElementPos(0) = 0
myElements(1) = "Colonne PRENOM"
myElementPos(1) = 3
myElements(2) = "Colonne AGE"
myElementPos(2) = 5

For i = 0 To UBound(myElements)
  myLine = myLine & String(myElementPos(i), vbTab) & myElements(i)
Next i

Printer.Print myLine
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010

ou je dois écrir ces lignes SVP
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010

ou je dois écrir ces lignes SVP
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010

j t'attend
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Bah tu peux mettre le code ou tu veux, déjà pour le tester puis ensuite pour l'adapter a ce que tu veux.

'SUB A METTRE N'IMPORTE OU
Public Sub TestPrinter()
  Dim myPrinter As Printer
  Dim myElements(2) As String
  Dim myElementPos(2) As Long
  Dim i As Integer
  Dim myLine As String

  myLine = ""
  myElements(0) = "Colonne NOM"
  myElementPos(0) = 0
  myElements(1) = "Colonne PRENOM"
  myElementPos(1) = 3
  myElements(2) = "Colonne AGE"
  myElementPos(2) = 5

  For i = 0 To UBound(myElements)
    myLine = myLine & String(myElementPos(i), vbTab) & myElements(i)
  Next i

  Printer.Print myLine
End Sub

'Dans un bouton, tu mets:
Call TestPrinter()


J'peux rien te dire de plus, c'est a toi de faire le reste.