XL 2019 Print Preview de plusieurs pages

[Electronull]

Salut à tous,
Je rencontre un problème en utilisant le print preview, il y a 25 pages et le preview m'en affiche 1
Je dois faire Page suivante puis zoom pour que la page 2 s'affiche
N'y a-t-il pas un autre moyen, du genre avoir les boutons flèche Gauche/Droite pour naviguer dans les pages.
Ou avoir l'aperçu de Fichier/Imprimer.

Merci

 

[TooFatBoy]

Hello,

On n'a pas un classeur ou une macro, voire une ligne de code VBA à se mettre sous la dent ?

 

[Electronull]

ActiveSheet.Range("A1:E47").PrintPreview

Juste un PrintPreview, normal pour imprimer

 

[TooFatBoy]

ActiveSheet.Range("A1:E47").PrintPreview

Si tu fais ActiveSheet.Range("A1:E47").PrintPreview il me semble normal que ça ne preview qu'une feuille.

As-tu essayé avec un Array ?
Je n'ai pas la syntaxe exacte, mais essaye un truc du genre "Array(Sheet1.Name, Sheet2.Name).PrintPreview".

 

[Electronull]

Juste, je me suis trompé de code
With ws.PageSetup
.Orientation = xlLandscape
'.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.CenterHorizontally = True
End With

ws.PageSetup.PrintArea = ws.Range("A1😀" & lastRow).Address
ws.PrintPreview

 

[fanch55]

Bonjour,
Normalement, vous avez déjà tout ce qu'il faut dans le ruban du PrintPreview :

Impression d'une page :

Impression de plusieurs pages

Nota: Le Printpreview ne supporte pas le Application.ScreenUpdating=False