OVH Cloud OVH Cloud

PageSetup.PrintQuality à 300dpi

5 réponses
Avatar
isabelle
bonjour,

Je n'arrive pas trouver comment ins=E9rer la commande=20
PageSetup.PrintQuality =E0 300dpi dans la macro ci-dessous=20
de fa=E7on =E0 avoir toutes les pages du Workbook en qualit=E9=20
300dpi
merci d'avance


Sub print()'
ActiveWorkbook.PrintOut Copies:=3D1,=20
ActivePrinter:=3D"Acrobat Distiller on Ne01:", _
Collate:=3DTrue
End Sub

5 réponses

Avatar
popi
Salut isabelle,
"isabelle" a écrit dans le message de news:
13cc01c38c00$9033ac20$
Je n'arrive pas trouver comment insérer la commande
PageSetup.PrintQuality à 300dpi dans la macro ci-dessous


Par une syntaxe je ne sais pas, par contre tu devrais pouvoir créer une
imprimante "virtuelle", lui affecter une définition à 300dpi et utiliser son
nom dans ta macro ;-)

@+ popi

Avatar
isabelle
sorry je ne comrend pas le sens de la réponse
-----Message d'origine-----
Salut isabelle,
"isabelle" a écrit dans le message
de news:

13cc01c38c00$9033ac20$
Je n'arrive pas trouver comment insérer la commande
PageSetup.PrintQuality à 300dpi dans la macro ci-dessous


Par une syntaxe je ne sais pas, par contre tu devrais
pouvoir créer une

imprimante "virtuelle", lui affecter une définition à
300dpi et utiliser son

nom dans ta macro ;-)

@+ popi


.




Avatar
isabelle
bonjour Isabelle,

au panneau de configuration, imprimante
tu ajoute un imprimante ( la même que tu utilise présentement )
supposons que tu utilise HP deskjet, l'imprimante ajouter sera nommé HP
deskjet(2) automatiquement par défaut,
configure cette nouvelle imprimante tel que PrintQuality soit à 300dpi
lorsque tu imprime choisi cette nouvelle imprimante.

isabelle


sorry je ne comrend pas le sens de la réponse
-----Message d'origine-----
Salut isabelle,
"isabelle" a écrit dans le message
de news:

13cc01c38c00$9033ac20$
Je n'arrive pas trouver comment insérer la commande
PageSetup.PrintQuality à 300dpi dans la macro ci-dessous


Par une syntaxe je ne sais pas, par contre tu devrais
pouvoir créer une

imprimante "virtuelle", lui affecter une définition à
300dpi et utiliser son

nom dans ta macro ;-)

@+ popi


.






Avatar
isabelle
j'ai fais cela mais le problème viens que j'ai des feuille
avec des photos, les paramamètes se mettent en 600dpi et
je dois regarder à chaque fois la proproété de le feuille
et la changer le cas échéant en 300dpi, alors je cherche
le moyen de faire une macro qui automatiquement met toutes
mes feuilles en qualité 300dpi
-----Message d'origine-----
bonjour Isabelle,

au panneau de configuration, imprimante
tu ajoute un imprimante ( la même que tu utilise
présentement )

supposons que tu utilise HP deskjet, l'imprimante ajouter
sera nommé HP

deskjet(2) automatiquement par défaut,
configure cette nouvelle imprimante tel que PrintQuality
soit à 300dpi

lorsque tu imprime choisi cette nouvelle imprimante.

isabelle


sorry je ne comrend pas le sens de la réponse
-----Message d'origine-----
Salut isabelle,
"isabelle" a écrit dans le
message



de news:
13cc01c38c00$9033ac20$
Je n'arrive pas trouver comment insérer la commande
PageSetup.PrintQuality à 300dpi dans la macro ci-
dessous





Par une syntaxe je ne sais pas, par contre tu devrais
pouvoir créer une

imprimante "virtuelle", lui affecter une définition à
300dpi et utiliser son

nom dans ta macro ;-)

@+ popi


.

.








Avatar
isabelle
bonjour Isabelle,

selon l'exemple fourni sur xl2002, ça varie selon l'imprimante utilisé,

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)

isabelle



j'ai fais cela mais le problème viens que j'ai des feuille
avec des photos, les paramamètes se mettent en 600dpi et
je dois regarder à chaque fois la proproété de le feuille
et la changer le cas échéant en 300dpi, alors je cherche
le moyen de faire une macro qui automatiquement met toutes
mes feuilles en qualité 300dpi
-----Message d'origine-----
bonjour Isabelle,

au panneau de configuration, imprimante
tu ajoute un imprimante ( la même que tu utilise
présentement )

supposons que tu utilise HP deskjet, l'imprimante ajouter
sera nommé HP

deskjet(2) automatiquement par défaut,
configure cette nouvelle imprimante tel que PrintQuality
soit à 300dpi

lorsque tu imprime choisi cette nouvelle imprimante.

isabelle


sorry je ne comrend pas le sens de la réponse
-----Message d'origine-----
Salut isabelle,
"isabelle" a écrit dans le
message



de news:
13cc01c38c00$9033ac20$
Je n'arrive pas trouver comment insérer la commande
PageSetup.PrintQuality à 300dpi dans la macro ci-
dessous





Par une syntaxe je ne sais pas, par contre tu devrais
pouvoir créer une

imprimante "virtuelle", lui affecter une définition à
300dpi et utiliser son

nom dans ta macro ;-)

@+ popi


.

.