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

 

[Electronull]

Salut,
Oui, sauf que, comme expliqué plus haut, je n'ai pas 'Aperçu😛age x sur un total de x
Et quand je fais page suivante, il faut zoomer et dézoomer pour que la vue change.
J'ai essayé avec la simulation de l'appui sur Ctrl + F2, mais ça ne fonctionne pas.

 

[TooFatBoy]

Ceci devrait fonctionner une fois que tu l'auras adapté :

ThisWorkbook.Sheets(Array("Feuil1", "Feuil3")).PrintPreview

 

[Electronull]

Non, ça ne change rien, j'ai essayé plusieurs codes, rien ne change

 

[TooFatBoy]

Non, ça ne change rien, j'ai essayé plusieurs codes, rien ne change

OK. Tu as peut-être une version spéciale d'Excel. 🙁

 

[Electronull]

Non, excel pro 2019
Si vous imprimez plusieurs pages d'une même feuille, vous avez quoi ?

 

[TooFatBoy]

Le tirage de ver n'étant pas ma tasse de thé, une dernière tentative : c'est quoi ton ws ?

 

[Electronull]

Purée, je viens de trouver, j'ai un Application.ScreenUpdating = False qui trainait dans mes lignes de code
Ca fonctionne
Merci à tous