Impression d'une plage de cellules

Bonjour à tous,

J'espère que vous allez tous bien?? Moi ça va mais ça irai mieux avec 500 000€ dans mon compte bref..

Voila mon souci:

J'aimerais imprimer une plage de cellule depuis une macro VBA et je souhaiterais que cette sélection de cellule soit imprimer sur une page entière format paysage (avec un minimum de marge quand même).

Voila mon code (Code qui permet de visualiser la feuille avant l'impression):

Sub print_la_plage_arrangée()

ActiveSheet.PageSetup.PrintArea = "B2:O118"

With ActiveSheet.PageSetup

.CenterHorizontally = True

.CenterVertically = True

.PaperSize = xlPaperA4

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

ActiveSheet.PrintPreview

End Sub

Après visualisation de la feuille je remarque qu'il reste encore de la marge à gauche et à droit. Je veux réduire cette marge au maximum.

Ci-joint vous trouverez un exemple de fichier excel

Merci d'avance

29exemple.xlsx (20.96 Ko)

Bonsoir,Weezy

Une autre version de macro qui centre la feuille et réduit le zoom à 85%

avec plusieurs feuilles à la suite un aperçu avant impression te permets de juger du résultat avant d'imprimer

Amicalement

Pierrot

77weezy.xlsm (31.10 Ko)

Je te remercie Cappe Pierre pour ton aide

Bonjour,

Si ton problème est résolu, n'oublies pas de cocher la coche verte en haut de ton sujet

Amicalement

Pierrot

Rechercher des sujets similaires à "impression plage"