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.

[pierre24]

En gros je suis obligé de dézzoomer pour avoir l'impression totale sur ma feuille A4.

Je ne sais pas si je suis très clair.

[pierre24]

Problème résolu en passant

Code :

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

ignoreprintareas:=False

par

Code :

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

 ignoreprintareas:=True

et en ajustant les marges et zones d'impression directement dans Excel.

J'avais PDF Creator en impression par défaut, ce qui faisait planter les zones d'impression, je ne sais pas pourquoi !