Imprimer en tête d'une listview

[cpeens]

Bonsoir

voila j' utilise un code pour imprimer une listview dans sa totalité

qui marche trés bien le seul Hic c'est qu'il m'imprime pas l'entête de ma listview

mais uniquement les Items à l'intérieure quelqu'un aurais t'il une idée pour garder le même résultat mais avec l'entête en plus


merci d'avance

Private Sub CommandButton48_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
   .PageSetup.LeftMargin = Application.InchesToPoints(0.35)
           .PageSetup.RightMargin = Application.InchesToPoints(0.35)
            .PageSetup.TopMargin = Application.InchesToPoints(0.56)
            .PageSetup.BottomMargin = Application.InchesToPoints(0.53)
            .PageSetup.HeaderMargin = Application.InchesToPoints(0.32)
            .PageSetup.FooterMargin = Application.InchesToPoints(0.39)
            .PageSetup.LeftHeader = "Nom:  " & TextBoxNom.Value & "                      Prénom:  " & TextBoxPrenom.Value & "                      Service:  " & TextBoxService.Value
            .PageSetup.CenterHeader = ""
            .PageSetup.RightHeader = ""
            .PageSetup.LeftFooter = ""
            .PageSetup.CenterFooter = "&D" & " - " & "&T"
            .PageSetup.RightFooter = ""
            .PageSetup.CenterHorizontally = True
            .PageSetup.CenterVertically = True
    .Columns.AutoFit
    .PageSetup.Orientation = xlLandscape
    .PrintOut
  
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
End With
   
Application.ScreenUpdating = True

        
End Sub

 

[kjin]

Re : Imprimer en tête d'une listview

Bonsoir,

With ActiveSheet
    For i = 1 To ListView1.ColumnHeaders.Count
        .Cells(1, i) = ListView1.ColumnHeaders(i).Text
    Next
    For Ligne = 1 To ListView1.ListItems.Count
        .Cells(Ligne + 1, 1) = ListView1.ListItems(Ligne).Text
        For Colonne = 1 To ListView1.ColumnHeaders.Count - 1
            .Cells(Ligne + 1, Colonne + 1) = ListView1.ListItems(Ligne).ListSubItems(Colonne).Text
        Next Colonne
    Next Ligne
'....

A+
kjin

 

[cpeens]

Re : Imprimer en tête d'une listview

Merci kjin

je teste cela

 

[cpeens]

Re : Imprimer en tête d'une listview

Re donc j'ai tester ton code ce sont des capture d'écran et cela correspond pas vraiment a ce que je recherche merci tout de même

il me fallais juste l'entête de la listview et dans ce cas si tous est mélanger

merci tout de meme

 

[kjin]

Re : Imprimer en tête d'une listview

Bonsoir,
Il faudra être plus clair dans ce cas et faire passer un exemple
A+
kjin