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

Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
Dernière intervention
14 décembre 2010
- - Dernière réponse : Duke49
Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
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 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
8
Date d'inscription
dimanche 26 septembre 2010
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 97 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
Dernière intervention
6 juin 2015
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
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
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
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
Dernière intervention
6 juin 2015
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.