VBA/xl/97 Application.ActivePrinter Ok /Ok...

J'ai un problème de paramétrage d'imprimante
Ça, ça marche ! :wink:

Code:

---

1 2 3

Dim ImprimanteActive ImprimanteActive = Application.ActivePrinter MsgBox ImprimanteActive

---

Mais ça, ça marche pas ! :nono:

Code:

---

1 2 3 4

Set ImprimanteActive = Application.ActivePrinter With ImprimanteActive '.... End With

---

Ça, ça marche ! :wink:

Code:

---

1 2 3

With Application ImprimanteActive = .ActivePrinter End With

---

Mais ça, ça marche pas ! :nono:

Code:

---

1 2 3 4 5 6

With Application Set ImprimanteParDéfaut = .ActivePrinter With ImprimanteParDéfaut '.... End With End With

---

Message d'erreur dans les deux cas "Objet requis" sur ActivePrinter

Alors que dans l'aide j'ai bien ça :

Citation:

---

Utilisez la propriété Application pour renvoyer l'objet Application

---

De quoi "il" parle ?

Merci par avance de me donner vos impressions (!)

Pourquoi cherches-tu à faire un Set là où, visiblement, VBA n'en veut pas???

Bien .activePrinter c'est une string.. tu ne peu donc pas utiliser Set pour l'affecter comme un objet...

Citation:

---

Envoyé par Aide en ligne VBA

ActivePrinter, propriété


Cette propriété renvoie ou définit le nom de l'imprimante active. Type de données String en lecture-écriture.

---

:roll: :wink:

Salut la Belgique !

Citation:

---

Pourquoi cherches-tu à faire un Set là où, visiblement, VBA n'en veut pas???

---

Pour configurer mon impression "comme j'ai envie".
Maintenant, si tu connais la bonne raison pour qu'Excel ne veuille pas de mon Set, je te serais trééés reconnaissant de m'expliquer. Ça pourrait servir à d'autres (ou à moi-même dans d'autres cas de figure).

Le bonjour à Bruxelles

Merci bbil, là, j'ai ma réponse. J'aurais dû te demander à toi... :wink:

Maintenant, comme Printer n'est pas un objet VBA, comment puis-je configurer la mienne ?

A+

Citation:

---

Envoyé par ouskel'n'or

Maintenant, comme Printer n'est pas un objet VBA, comment puis-je configurer la mienne ?

---

qu'appelle tu configuer ? .. si c'est le formatage pour lpar exemple imprimer une feuille excel tu as l'objet :

ActiveSheet.PageSetup
..

Bonsoir, ouskel'n'or
Celà m'étonnerais beaucoup que tu ne saches pas, mais pour imprimer la page en cours, c'est:

Code:

---

1 2	ActiveWindow.SelectedSheets.PrintOut Copies:=1

---

jpleroisse

Non, il ne s'agit pas d'une feuille mais de lancer du texte directement sur imprimante.
Je teste une solution (VB) que tu as données, bbil, à méphistopheles samedi. Ayant déjà eu besoin d'imprimer directement sur imprimante, et n'ayant pas trouvé de solution à l'époque, j'aurais voulu être prêt si l'occasion se re-présentait :wink:
Et puis, j'ai fait ça sur Apple IIe (en 1790...) et je n'accepte pas de ne pouvoir le faire aujourd'hui.

Rien d'urgent mais j'aimerais bien savoir

Si tu as une solution je t'enverrai des fleurs...

A+

NB - http://www.developpez.net/forums/vie...416720#2416720

PS - En effet, leroissejp, ce n'est pas une feuille... Mais je pressents que mon cas est désespéré en VBA... :cry: