Bonjour à tous,
Ma base de donnée avance bien grâce à vous tous et c'est vraiment génial!
ma difficulté de cette fin d'après midi est de pouvoir imprimer les lignes sélectionnées dans un Lisview.
Ma listview tient la route (enfin!) j'extrait les colonnes qui m'intéressent.
une colonne cachée comporte la numération..
je peux sélectionner plusieurs lignes (elles se mettent en surbrillance bleu).
ce que je voudrais maintenant c'est imprimer uniquement les données des lignes qui seront sélectionnées.
J'ai fait le tour des posts sur le Forum .. j'ai pas trouvé mon bonheur , si j'ai bien compris il faut transférer les lignes vers une page qui servira pour l'impression, j'ai essayé un tas de code ... pas moyen le dernier trouvé à l'air sympa, mais plante sur la ligne:
Je ne comprends pas ce qui ce passe quelq'un pourrait m'éclairer?
autre chose: est-il possible de lancer "automatiquement" l'impression sans que l'utilisateur aille dans la feuille crée? (les pages du classeur seront cachées) risque de mauvaise définition de zone d'impression ou de passer une ramette entière de papier?
J'espère que ma demande va vous inspirer!
Cordialement @+
Ma base de donnée avance bien grâce à vous tous et c'est vraiment génial!
ma difficulté de cette fin d'après midi est de pouvoir imprimer les lignes sélectionnées dans un Lisview.
Ma listview tient la route (enfin!) j'extrait les colonnes qui m'intéressent.
une colonne cachée comporte la numération..
je peux sélectionner plusieurs lignes (elles se mettent en surbrillance bleu).
ce que je voudrais maintenant c'est imprimer uniquement les données des lignes qui seront sélectionnées.
J'ai fait le tour des posts sur le Forum .. j'ai pas trouvé mon bonheur , si j'ai bien compris il faut transférer les lignes vers une page qui servira pour l'impression, j'ai essayé un tas de code ... pas moyen le dernier trouvé à l'air sympa, mais plante sur la ligne:
Code:
.Cells(Ligne, Colonne + 1) = ListView1.ListItems(Ligne).ListSubItems
Je ne comprends pas ce qui ce passe quelq'un pourrait m'éclairer?
autre chose: est-il possible de lancer "automatiquement" l'impression sans que l'utilisateur aille dans la feuille crée? (les pages du classeur seront cachées) risque de mauvaise définition de zone d'impression ou de passer une ramette entière de papier?
Code:
Private Sub CommandButton3_Click()
Dim Ligne As Integer, Colonne As Integer
Application.ScreenUpdating = False
ActiveWorkbook.Sheets.Add
With ActiveSheet
For Ligne = 1 To ListView1.ListItems.Count
.Cells(Ligne, 1) = ListView1.ListItems(Ligne).Text
For Colonne = 1 To ListView1.ColumnHeaders.Count - 1
.Cells(Ligne, Colonne + 1) = ListView1.ListItems(Ligne).ListSubItems(Colonne).Text
Next Colonne
Next Ligne
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
End Sub
J'espère que ma demande va vous inspirer!
Cordialement @+