1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
'Arg1 En-tête
'Arg2 Pied de page
'Arg3 Marge Gauche en pouce (diviser par 2.54, avec le point (.) en séparateur décimal
'Arg4 Marge Droite en pouce (diviser par 2.54, avec le point (.) en séparateur décimal
'Arg5 Marge Haut en pouce (diviser par 2.54, avec le point (.) en séparateur décimal
'Arg6 Marge Bas en pouce (diviser par 2.54, avec le point (.) en séparateur décimal
'Arg7 Titre FALSE= sans, TRUE =
'Arg8 Grille FALSE ou TRUE
'Arg9 Centré Horizontalement = 1, sinon 0
'Arg10 Centré Verticalement = 1, sinon 0
'Arg11 Orientation - 1 = Portrait, 2 = Paysage
'Arg12 Type de papier - une constante XlPaperSize
'Arg13 Echelle - nombre < 400
'Arg14 Départ numérotation
'Arg15 Ordre d'impression - 1 = haut en bas, 2 = Gauche à droite
'Arg16 Couleur - 0 = avec couleur, 1 = Noir et Blanc
'Arg17 Qualité
'Arg18 En-tête en pouce (diviser par 2.54, avec le point (.) en séparateur décimal
'Arg19 Pied de page en pouce (diviser par 2.54, avec le point (.) en séparateur décimal
'Arg20 Commentaire - 0 = sans, 1 = avec
'Arg21 Brouillon - 0 ou 1
Application.ExecuteExcel4Macro "PAGE.SETUP(Arg1,Arg2,,,,,,,,,,,,,,,,,,Arg20,Arg21)"
---------------------------------------------------------------- |
Partager