OVH Cloud OVH Cloud

uniformiser le print dans tous sheets

1 réponse
Avatar
isamarcc
bonjour,

Existe t-il un moyen (macro ou vba) qui me permette de=20
mettre la propri=E9t=E9 PrintQuality =E0 300dpi de toutes les=20
feuilles de mon classeur.

merci d'avance

1 réponse

Avatar
Clément Marcotte
Bonjour,

Extrait de l'aide de VBA:

Début de copie:

PrintQuality, propriété
Voir aussi S'applique à Exemple Spécificités
Cette propriété renvoie ou définit la qualité d'impression. Type de
données Variant en lecture-écriture.

expression.PrintQuality(Index)

expression Obligatoire. Expression qui renvoie un objet PageSetup.

Index Argument de type Variant facultatif. Qualité d'impression
horizontale (1) ou qualité d'impression verticale (2). Certaines
imprimantes ne prennent pas en charge la qualité d'impression
verticale. Si vous ne spécifiez pas cet argument, la propriété
PrintQuality renvoie (ou peut être définie sur) un tableau à deux
éléments qui contient la qualité d'impression horizontale et
verticale.

Exemples
Cet exemple montre comment définir la qualité d'impression sur une
imprimante avec des pixels non carrés. Le tableau indique à la fois la
qualité d'impression horizontale et verticale. Cet exemple peut
générer une erreur, selon le pilote d'imprimante que vous utilisez.

Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)
Cet exemple montre comment afficher le paramètre courant de la qualité
d'impression horizontale.

MsgBox "Horizontal Print Quality is " & _
Worksheets("Sheet1").PageSetup.PrintQuality(1)


fin de copie


"isamarcc" a écrit dans le message de
news:15f801c388c3$0c809720$
bonjour,

Existe t-il un moyen (macro ou vba) qui me permette de
mettre la propriété PrintQuality à 300dpi de toutes les
feuilles de mon classeur.

merci d'avance