Discussion :

[pierre24]

Bonjour à toutes et tous,

je rencontre un petit soucis dans le format d'un fichier PDF généré avec ExportAsFixedFormat.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
CheminDossier = "P:\0-GT\"
nomfic = "Evaluation - " & Sheets(3).Range("C7").Value & "-" & Format(Now, "dd.mm.yyyy hh_mm") & ".pdf"
If nomfic = "" Then Exit Sub
 
'Enregistrement au format PDF
ThisWorkbook.Sheets("modèle éval").Range("A1:C45").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & nomfic, quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=False

La génération se fait correctement, enfin presque.

Lorsque j'ouvre le PDF et que je souhaite l'imprimer, j'ai un soucis de taille, de marge etc...

Voyez donc ci-dessous. L'impression ne peut se faire automatiquement sur une feuille A4.

Je chercher et je cherche mais ne trouve pas.

Par avance merci de votre aide.