Discussion :

[GADENSEB]

Bonjour je relance un topic

..... Je dois rendre ce travail rapidement ..... c'est la panique à bord....

Le fichier joint est un note que remplisse mes collègues

Ils remplissent les points 1.2 1.3 .....

comme les chapitres d'un livre

Pour que la mise en page soit agréable, je souhaiterais qu'aucune des parties 1.2 1.3 ne commence en bas de page pour une ou deux ligne et se termine sur la page suivante.

L'idée est que si une partie commence pour une ou deux lignes en bas de page elle se retrouve décalée au début de la page suivante.

Un pdf doit être fait de se fichier excel

J'ai déjà figé (portrait ou paysage) les parties qui m’intéressent avec ce code.

Comment faire pour résoudre le reste ?


Bonne aprem

Seb

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
22
Sub Bouton2_Cliquer()
With ActiveSheet.PageSetup
    .PrintArea = "A1:H30"
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    ActiveSheet.PrintPreview
    .PrintArea = "A31:H137"
    .Orientation = xlPortrait
    ActiveSheet.PrintPreview
    .PrintArea = "A186:H309"
    .Orientation = xlPortrait
    ActiveSheet.PrintPreview
    .PrintArea = "A310:H322"
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    ActiveSheet.PrintPreview
    .PrintArea = "A138:T185"
    .Orientation = xlLandscape
    ActiveSheet.PrintPreview
End With