Discussion :

[jacfld49]

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

[BlueMonkey]

Bonsoir,

Essaye de spécifier un ajustement :
- en largeur FitToPagesWide à une page
- en longueur FitToPagesTall à 50 pages (par exemple).

L'ajustement en largeur étant plus contraignant que l'ajustement en hauteur, tu devrais obtenir ce que tu cherche.

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
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"
        .FitToPagesWide = 1
        .FitToPagesTall = 50
    End With
    .PrintOut Copies:=3, Collate:=True
  End With
End Sub

[78chris]

Bonjour

En principe il suffit de ne pas préciser FitToPagesTall : seul le "fit" en largeur s'opérera

[jacfld49]

Bonsoir le forum, Blue Monkey, 78 chris,

merci cela fonctionne comme je le souhaite
jacky

[jacfld49]

Re bonsoir le forum,

j'ai un autre code ou j'ai voulu FitToPagesWide et FitToPagesTall
mais j'ai une erreur que j'ai joint en image et le code ci-dessous
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
Sub ImprimerTest()
 
Dim Ws As Worksheet
Dim MaPlage As Range
    Set Ws = Worksheets("Test")
    Derlig = Ws.Range("E" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("B1:H" & Derlig)
    Ws.PageSetup.PrintArea = MaPlage.Address
 
    .FitToPagesWide = 1
    .FitToPagesTall = 50
    Ws.PrintOut Copies:=3, Collate:=True
 
End Sub

[BlueMonkey]

Bonsoir,

FitToPagesWide et FitToPagesTall sont des propriétés de PageSetup.

Essaye avec ce code.

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 ImprimerTest()
    Dim Derlig As Long
    Dim Ws As Worksheet
    Dim MaPlage As Range
    
    Set Ws = Worksheets("Test")
    Derlig = Ws.Range("E" & Ws.Rows.Count).End(xlUp).Row
    Set MaPlage = Ws.Range("B1:H" & Derlig)
    With Ws.PageSetup
        .PrintArea = MaPlage.Address
        .FitToPagesWide = 1
        '.FitToPagesTall = 50
    End With
    Ws.PrintOut Copies:=3, Collate:=True
End Sub

[jacfld49]

re Blue Monkey,

merci beaucoup, cela fonctionne tres bien
jacky