[Résolu] Erreur 1004 .PaperSize = xlPaperLegal

3xceln4ute

XLDnaute Occasionnel
Bonjour,

En lançant ma macro j'obtiens un code erreur 1004:
Impossible de Définir la propriété PaperSize de la classe PageSetup

Est-ce que vous avez une idée sur comment on pourrait régler le problème ?

Merci

https://ibb.co/giPQ6m
https://ibb.co/ckzsmm



Code:
'Mise en page de la feuille Analyse pour impression
    Sheets("Analyse").Select
    Columns("B:B").ColumnWidth = 9
    Columns("D:D").ColumnWidth = 6.29
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.36)
        .RightMargin = Application.InchesToPoints(0.37)
        .TopMargin = Application.InchesToPoints(0.53)
        .BottomMargin = Application.InchesToPoints(0.51)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLegal
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 80
        .PrintErrors = xlPrintErrorsDisplayed
    End With
 

eriiic

XLDnaute Barbatruc
Bonjour,

et dans l'aide vba on trouve ces valeurs xl :
Nom Valeur Description
xlPaper10x14
16 25,4 x 35,6 cm
xlPaper11x17 17 27,9 x 43,2 cm
xlPaperA3 8 A3 (29,7 x 42 cm)
xlPaperA4 9 A4 (21 x 29,7 cm)
xlPaperA4Small 10 Petit A4 (21 x 29,7 cm)
xlPaperA5 11 A5 (14,8 x 21 cm)
xlPaperB4 12 B4 (25 x 35,4 cm)
xlPaperB5 13 A5 (14,8 x 21 cm)
xlPaperCsheet 24 Feuille US taille C
xlPaperDsheet 25 Feuille US taille D
xlPaperEnvelope10 20 Enveloppe US #10 (10,5 x 24,1 cm)
xlPaperEnvelope11 21 Enveloppe US #11 (11,4 x 26,4 cm)
xlPaperEnvelope12 22 Enveloppe US #12 (11,4 x 27,9 cm)
xlPaperEnvelope14 23 Enveloppe US #14 (12,7 x 29,2 cm)
xlPaperEnvelope9 19 Enveloppe US #9 (9,8 x 22,5 cm)
xlPaperEnvelopeB4 33 Enveloppe B4 (25 x 35,3 cm)
xlPaperEnvelopeB5 34 Enveloppe B5 (17,6 x 25 cm)
xlPaperEnvelopeB6 35 Enveloppe B6 (17,6 x 125 mm)
xlPaperEnvelopeC3 29 Enveloppe C3 (32,4 x 45,8 cm)
xlPaperEnvelopeC4 30 Enveloppe C4 (22,9 x 32,4 cm)
xlPaperEnvelopeC5 28 Enveloppe C5 (16,2 x 22,9 cm)
xlPaperEnvelopeC6 31 Enveloppe C6 (11,4 x 162 mm)
xlPaperEnvelopeC65 32 Enveloppe C65 (11,4 x 22,9 cm)
xlPaperEnvelopeDL 27 Enveloppe DL (11 x 22 cm)
xlPaperEnvelopeItaly 36 Enveloppe (11 x 23 cm)
xlPaperEnvelopeMonarch 37 Enveloppe US Monarch (9,8 x 19,1 cm)
xlPaperEnvelopePersonal 38 Enveloppe US (9,2 x 16,5 cm)
xlPaperEsheet 26 Feuille US taille E
xlPaperExecutive 7 Exécutive US (19,1 x 26,7 cm)
xlPaperFanfoldLegalGerman 41 Legal Fanfold allemand (21,6 x 33 cm)
xlPaperFanfoldStdGerman 40 Legal Fanfold allemand (21,6 x 33 cm)
xlPaperFanfoldUS 39 Papier glacé légal US (37,8 x 27,9 cm)
xlPaperFolio 14 Folio US (21,6 x 33 cm)
xlPaperLedger 4 Ledger US (43,2 x 27,9 cm)
xlPaperLegal 5 Legal US (21,6 x 35,6 cm)
xlPaperLetter 1 Lettre US (21,6 x 27,9 cm)
xlPaperLetterSmall 2 Petite lettre US (21,6 x 27,9 cm)
xlPaperNote 18 Note US (21,6 x 27,9 cm)
xlPaperQuarto 15 Quarto US (21,5 x 27,5 cm)
xlPaperStatement 6 Statement US (14 x 21,6 cm)
xlPaperTabloid 3 Tabloïd US (27,9 x 43,2 cm)
xlPaperUser 256 Taille définie par l'utilisateur

On retrouve bien xlPaperLegal.
Est-ce qu'il ne faudrait pas que ce soit un format connu (et accepté) de l'imprimante ?
35.6 cm ce n'est pas n'importe quelle imprimante.
Vu ton zoom de 0.8 ce n'est pas sur du A4 que tu veux ?

Question annexe pour rire :
C'est quoi la différence entre xlPaperA4 9 A4 (21 x 29,7 cm) et xlPaperA4Small 10 Petit A4(21 x 29,7 cm), l'épaisseur ? :)
eric
 

Discussions similaires