Bonjour le forum,
Je voudrais imprimer le contenu de ma listbox. j'ai trouvé le code ci-dessous mais le problème c'est que l’impression n'est pas en mode paysage. En plus je voulais ajouter des titres dans la feuille provisoire avant d’imprimer (Première ligne A1:O1).
Merci pour votre réponse.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Sub Impre() Dim Tableau() As Variant Dim i As Integer Dim j As Byte Application.ScreenUpdating = False Workbooks.Add 'création d'un nouveau classeur temporaire Tableau() = ListBox1.List j = ListBox1.ColumnCount i = ListBox1.ListCount Range("A1:" & Cells(i, j).Address) = Tableau() 'option pour adapter la largeur des colonnes à la taille des données 'ActiveSheet.Range("A1:" & Cells(i, j).Address).EntireColumn.AutoFit ActiveWorkbook.PrintOut 'impression ActiveWorkbook.Close False 'suppression du classeur temporaire Application.ScreenUpdating = True End Sub
Partager