XL 2019 Print Preview de plusieurs pages

TooFatBoy

XLDnaute Barbatruc

• Aujourd'hui à 00:18

• #2

Hello,

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

 

Vote positif 0 Vote négatif

E

Electronull

XLDnaute Junior

• Aujourd'hui à 00:46

• #3

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

Juste un PrintPreview, normal pour imprimer

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• Aujourd'hui à 01:24

• #4

Electronull à dit:

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

Cliquez pour agrandir...

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".

 

Vote positif 0 Vote négatif

E

Electronull

XLDnaute Junior

• Aujourd'hui à 01:47

• #5

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• Il y a 23 minutes

• #6

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

 

Vote positif 0 Vote négatif