Imprimer , List affichée dans une ListView

[MuscatMimi]

Bonjour a tout le Forum

J'aimerais savoir ,s'il est possible de pouvoir imprimer
une Liste Afichée dans une ListView??
via un Btn

S'il vous faut un bout de Fichier, faite le moi savoir

Merci a tous a L'avance

Bon Dimanche

 

[jp14]

Re : Imprimer , List affichée dans une ListView

Bonjour

Le plus simple est de transférer les données dans une feuille et d'imprimer la feuille.

JP

 

[MuscatMimi]

Re : Imprimer , List affichée dans une ListView

Salut JP14

Bon Ok, mais la, je sais pas faire


A+++++

 

[kjin]

Re : Imprimer , List affichée dans une ListView

Bonjour,

Private Sub CommandButton1_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

Reste à voir ce que contient ta listview
A+
kjin

 

[MuscatMimi]

Re : Imprimer , List affichée dans une ListView

Bonsoir KJin, cher voisin

Merci tout plein pour ton Code,
ça fonctionne super bien
Bonne soirée
A bientôt