Bonsoir le forum,

j'ai ce code qui m'imprime un tableau jusqu'a la dernière ligne rempli, cela fonctionne bien , le problème est que lorsque toutes les lignes sont rempli( jusqu'a la ligne 105) le tableau est sur une seule feuille et donc illisible, je voulais savoir ce qu'il faut ajouter à ce code pour qu'il m'imprime sur 3 feuille quand tout le tableau est rempli ou le mieux , c'est que l'impression se fasse sur une feuille en largeur et sur 1,2 ou 3 feuille en hauteur suivant le remplissage du tableau.
J'espère avoir été clair
merci
jacky

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
Sub ImprimTest(ByVal WsName As String)
Dim MaPlage As Range
Dim Derlig As Long
 
With ThisWorkbook.Worksheets(WsName)
    Derlig = .Range("E" & .Rows.Count).End(xlUp).Row
     With .PageSetup
        .PrintArea = "B1:H" & Derlig
'        .LeftFooter = "ici, La bas , ailleurs"
        .CenterFooter = "ici, La bas , ailleurs"
'        .RightFooter = "ici, La bas , ailleurs"
    End With
    .PrintOut Copies:=3, Collate:=True
End With
End Sub