Impression

Bonjour,

un petit problème d'impression

voici le petit bout de code que j'utilise

Cela imprime sur 4 pages,or je souhaiterai tout avoir sur une page.

J'ai sélectionner en mis en page ajuster a une page en hauteur et une page en largeur.

Auriez vous une idée ?

Merci d'avance.

Dim k, l As String
k = ListBox1.ListIndex + 2
l = ListBox2.ListIndex + 2
Sheets("CA").PageSetup.CenterHeader = "Chiffre d'affaire par forfait du  " & Sheets("Ca").Cells(k, 1).Value & "  au  " & Sheets("Ca").Cells(l, 1).Value
Sheets("CA").Range("A1,A" & k & ":A" & l & ",AD1:AZ1,AD" & k & ":AZ" & l).PrintOut

J'ai masqué les colonnes cela va plus vite .... et ca marche