Suppression de page blanche

Bonjour excelleurs(ses)

Je voudrais savoir si cela est possible.

J'ai un userform (pas la peine de vous le montrer), ce dernier permet de générer un devis.

Ce devis est générée sous xls puis je le transforme en pdf.

Le problème c'est qui me génère les pages blanches aussi dans le pdf et je voudrai les enlever

Que j'ai mon pdf sans feuilles blanches. Existe il un contrôle qui vérifie si ma page est vide?

Merci de votre lecture

En attente de vous lire le temps que je trouve une solution.

Bonjour,

vous pouvez remseigner les arguments IgnorePrintAreas, , From, et To

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nomfichier & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, From:=1, To:=1, OpenAfterPublish:=False

bonjour

ou voir le format

Nlig = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & Nlig

A+

Maurice

Bonjour exceleurs(ses), Archer,SabV,

C'est toujours un plaisir de vous lire merci de l'info, j'avais false au lieu de true merci nickel ton code Archer

à plus tard