Imprimer une ligne selectionnée de MSFlexGridRésolu

Question

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

soso99 · Accepted Answer

[^^confus2]

Duke49 · Answer

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

soso99 · Answer

ou je dois écrir ces lignes SVP

soso99 · Answer

ou je dois écrir ces lignes SVP

soso99 · Answer

j t'attend

Duke49 · Answer

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.

Imprimer une ligne selectionnée de MSFlexGrid

6 réponses

Votre réponse

Discussions similaires