format d'impression dft en vba

[armelle]

Bonsoir le forum
je récupère des .dft pour les convertir en pdf (grâce à un code de Lolo43)
mais me reste le problème du format d'impression.

voici le bout de code :

Code : Tout sélectionner

'L'imprimer si le format est identique au format sélectionné
If doc.Drawings.Item(1).PaperFormat = 5 Then

j'ai mis systématiquement 5 mais je ne sais pas à quel format cela correspond (sauf que sur les essais que j'ai réalisé cela à l'air de fonctionner) et je voudrais avoir plus d'infos sur ces formats pour éviter des plantages

Merci d'avance

[lolo43]

Bonjour Armelle,

Les codes formats ont la correspondance suivante :
topPaperFormatCustom = -1 : Custom paper format (value returned by drawings that have a custom paper format).

topPaperFormatA4H = 0 : Horizontal A4.

topPaperFormatA3H = 1 : Horizontal A3.

topPaperFormatA2H = 2 : Horizontal A2.

topPaperFormatA1H = 3 : Horizontal A1.

topPaperFormatA0H = 4 : Horizontal A0.

topPaperFormatA4V = 5 : Vertical A4.

topPaperFormatA3V = 6 : Vertical A3.

topPaperFormatA2V = 7 : Vertical A2.

topPaperFormatA1V = 8 : Vertical A1.

topPaperFormatA0V = 9 : Vertical A0.

topPaperFormatAH = 10 : Horizontal A.

topPaperFormatBH = 11 : Horizontal B.

topPaperFormatCH = 12 : Horizontal C.

topPaperFormatDH = 13 : Horizontal D.

topPaperFormatEH = 14 : Horizontal E.

topPaperFormatAV = 15 : Vertical A.

topPaperFormatBV = 16 : Vertical B.

topPaperFormatCV = 17 : Vertical C.

topPaperFormatDV = 18 : Vertical D.

topPaperFormatEV = 19 : Vertical E.

topPaperFormatDinA4V = 20.

topPaperFormatDinA3H = 21.

topPaperFormatDinA2H = 22.

topPaperFormatDinA1H = 23.

topPaperFormatDinA0H = 24.

Lolo