Microsoft 365 Impression en pdf sans les marges

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

membsa

XLDnaute Nouveau
Bonjour à tous,

J'ai un petit souci avec l'impression d'un fichier Excel au format PDF.
J'ai déjà mis les marges haut, bas, gauche et droite à 0 et l'entête et bas de page à 0 aussi. Cependant, il y a toujours une marge sur les quatre côtés.

Je vous remercie par avance pour votre aide.

Ando
 
Bonjour @membsa

Je te propose ceci avec les paramètres d'impression à choisir

VB:
'La procédure impression ....
With Sheets("Ma feuille").PageSetup ' à adapter'
    .LeftMargin = Application.InchesToPoints(0.8) 'Marge gauche à adapter
    .RightMargin = Application.InchesToPoints(0.1)  'Marge droite à adapter
    .TopMargin = Application.InchesToPoints(0.8) 'Marge haut de page ou top à adapter
    .BottomMargin = Application.InchesToPoints(0.8) 'Marge bas de page si nécessaire à adapter
  
    'Orientation à choisir c'est l'un ou l'autre mais pas les 2
    .Orientation = xlLandscape 'Paysage à adapter
    '.Orientation = xlPortrait 'Portrait à adapter
    .PrintArea = "C4:M26" 'Zone d'impression à adapter
End With

*Merci de ton retour

@Phil69970
 
Dernière édition:
Bonjour @membsa

Je te propose ceci avec les paramètres d'impression à choisir

VB:
'La procédure impression ....
With Sheets("Ma feuille").PageSetup ' à adapter'
    .LeftMargin = Application.InchesToPoints(0.8) 'Marge gauche à adapter
    .RightMargin = Application.InchesToPoints(0.1)  'Marge droite à adapter
    .TopMargin = Application.InchesToPoints(0.8) 'Marge haut de page ou top à adapter
    .BottomMargin = Application.InchesToPoints(0.8) 'Marge bas de page si nécessaire à adapter
 
    'Orientation à choisir c'est l'un ou l'autre mais pas les 2
    .Orientation = xlLandscape 'Paysage à adapter
    '.Orientation = xlPortrait 'Portrait à adapter
    .PrintArea = "C4:M26" 'Zone d'impression à adapter
End With

*Merci de ton retour

@Phil69970
Bonjour Phil,

Merci pour ta réponse, je le test ce jour et te fais mes retours.

Bonne journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour