Insérer SyntaxeMise en Page dans code

[MuscatMimi]

Bonsoir


Dans le code ci-dessous, qui me sert a imprimer les données qui ce trouve dans une ListView

J'aimerais y inclure une syntaxe mise en page mode Paysage

Aprés de nombreux essai, je ne suis pas arrivé

Ma demande est-elle réalisable??

Private Sub CommandButton5_Click() 'Imprime La Liste Affichée Dans la ListeView

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

Cordialement

 

[Papou-net]

Re : Insérer SyntaxeMise en Page dans code

Bonsoir


Dans le code ci-dessous, qui me sert a imprimer les données qui ce trouve dans une ListView

J'aimerais y inclure une syntaxe mise en page mode Paysage

Aprés de nombreux essai, je ne suis pas arrivé

Ma demande est-elle réalisable??

Private Sub CommandButton5_Click() 'Imprime La Liste Affichée Dans la ListeView

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

Cordialement

Bonsoir vaucluse immo,

Oui, c'est parfaitement possible.
Pour t'en convaincre, il te suffit de lancer l'enregistreur de macros, d'effectuer ta manipulation de mise en page, et tu obtiendras la syntaxe exacte.
C'est fou ce que l'on peut se dépanner avec l'enregistreur !

Espérant avoir aidé.

Cordialement.

 

[MuscatMimi]

Re : Insérer SyntaxeMise en Page dans code

Bonjour papou


Je ne pense jamais a l'enregistreur de macro

C'est bon j'y suis arrivé

Bonne journée et merci de ton aide

Cordialement