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

Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010
- - Dernière réponse : Duke49
Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
- 14 déc. 2010 à 18:06
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
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010
3
Merci
[^^confus2]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 201 internautes nous ont dit merci ce mois-ci

Commenter la réponse de soso99
Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2
0
Merci
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
Commenter la réponse de Duke49
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010
0
Merci
ou je dois écrir ces lignes SVP
Commenter la réponse de soso99
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010
0
Merci
ou je dois écrir ces lignes SVP
Commenter la réponse de soso99
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Statut
Membre
Dernière intervention
14 décembre 2010
0
Merci
j t'attend
Commenter la réponse de soso99
Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2
0
Merci
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.
Commenter la réponse de Duke49