1 pièce(s) jointe(s)
Format impression PDF après export avec ExportAsFixedFormat
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:
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.