Discussion :

[ouskel'n'or]

Bonjour,
J'ai un problème avec l'impression couleur
L'imprimante réseau est configuré par défaut en noir et blanc
En tant qu'administrateur, j'ai la possibilité de la configurer en couleur, ce que je fais.
Quand j'ouvre mes classeurs et que je fais un aperçu, celui-ci persiste à être en noir et blanc, ainsi que les éditions (!)
Pour éditer les 48 feuilles en couleur, je dois, pour chacune d'elles, configurer l'imprimante. A LA MAIN !

Je cherche, en VBA97, à faire ça par macro.

J'ai vu passer le sujet la semaine dernière ou la semaine précédente sur le forum (réponse par jmfmarques) mais elle concernait VB6. Donc, pas bon
Merci par avance

Comme maintenant je l'ai fait à la main, il n'y a plus d'urgence )

[jmfmarques]

Pourquoi, pas bon ?
Je crois que j'avais fait avec API...
Alors, celà devrait parcher avec VBA... il me semble...
Tu peux me ressortir ce lien ?
Sinin, je recommence, ma foi...

[zazaraignée]

Salut

Sais pas si ça t'aidera, surtout que mon imprimante est locale. Mais il faut passer par Mise en page.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 2006-05-31 par Isabelle Côté
'

'
    With ActiveSheet.PageSetup
        ... ' J'ai effacé un tas de lignes pour réduire
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

Et il se peut que ça soit spécifique à mon imprimante...

[zazaraignée]

Change de version, change d'imprimante ou d'administrateur réseau




Pardon

Il me fait marrer ce mec!

Ouskel', j'ai oublié de mentionner que j'ai fait le test avec Excel XP sous WinXP (itou). Le Upgrade m'a été fourni par un coéquipier pour un travail d'équipe au collège. J'avais besoin d'une version d'Access plus récente que 97.

Edit : Thierry, Fou rire ajouté

[jmfmarques]

Sinon, Ousk :
Si tu as le manuel de l'imprimante : fastoche : on lui envoie la séquence qui lui convient, juste avant l'impression... et voilà... (mais je n'aime pas trop cette solution car rien ne va plus en cas de changement d'imprimante...)

[ouskel'n'or]

Merci à tous. Surtout à toi, ThierryAim, qui t'es montré particulièrement constructif
J'essaierai ta solution demain, tante zaza , là je ne suis plus au boulot. J'ai effectivement la propriété BlackAndWhite mais je croyais que c'était une marque de chiens... Je verrai bien si ça fonctionne.
Non, jemefe, je n'ai pas installé l'imprimante et n'ai donc pas la doc. En outre, mes 22 collègues, ceux qui impriment en noir et blanc, ont tout de même l'option couleur. Je crois deviner leur réaction si je plantais "notre" imprimante couleur...
T'as envie que je sois mal vu ?
Si quelqu'un a une autre idée... sauf Thierry qui a montré ses limites.

[jmfmarques]

T'as envie que je sois mal vu ?

Oh que non !
Que les autres voient rouge ? (ptêt ben qu'oui)
Ceci étant dit : quand on modifie... on restitue l'état des lieux après... comme quand on pique-nique
Si l'excellente solution Zazaienne ne va pas, dis-le... je te ferai "la chose" avec une api

[ouskel'n'or]

Ok, merci jemefe. Au cours des quinze jours à venir, j'aurais à faire ça une douzaine de fois et donc... je te dis ça demain.

[ouskel'n'or]

Désolé, zaza, ça ne fonctionne pas dès lors qu'une collègue a enregistré ses modifications sur son poste.
Une petite explication : Après modifications apportées par les différents secteurs du service sur autant de classeurs, je rassemble ces fichiers sur un classeur unique. Ceci afin de présenter un document unique à éditer en couleur.
Je précise que j'ai essayé la copie de feuilles sur un fichier vierge ouvert sur mon poste et que ça n'a rien changé. Seule la copie du contenu de chaque feuille change la donne. Hélas, en raison des liaisons multiples et du nombre de graphes, la réalisation d'une macro serait vite une usine à gaz.
Voilà.
jmf, tu m'as fait une proposition... honnête... Je suis preneur. Merci d'avance.

[jmfmarques]

Je tente celà après le déjeuner... (prie pour que je n'abuse pas trop de la bonne bouteille que je vais ouvrir )

[letoulouzin31]

Bonjour
jmf c'est souvent dans ces moments que l'on sort les meilleur chose (mais malheureusement aussi les pires ) oui prions ensembles qu'il nous enfin te donne quelque chose qui marche bien

oui oui je sort ==>

[jmfmarques]

Très mauvaise nouvelle, Ousk !
Les APIs me permettent bien de pointer vers l'imprimante choisie, y compris par défaut, mais impossible de dialoguer avec leur driver... et c'est indispensable, pour donner la valeur attendue par ce dernier pour devmode

J'ai essayé de contourner la difficulté par l'emploi de sendkeys une fois ouverte la fenêtre d'impression de l'imprimante... mais déception là aussi : fenêtres différentes selon le driver (donc l'imprimante)... donc impossibilité de connaître à l'avance les sendkeys attendus !

J'ai fouillé partout pour savoir comment VB se débrouillait avec son objet printer (car il se débrouille apparemment).... pas trouvé !

J'ai interrogé un site espagnol (où il y a un excellent dégourdi) : il a fait lui aussi les mêmes démarches dans succès...

Apparemment l'objet Printer de VB fonctionne par pointeur vers le driver de l'imprimante... et fonctionne bien dès lors qu'elle est compatible avec Windows ou que Windows connait bien son type de driver...

Il doit y avoir un moyen de faire la même chose, sûr, mais je ne parviens pas à le trouver

[ouskel'n'or]

Je ne voyais pas bien comment faire ça par les API pour une imprimante quelconque alors je t'avoue que je ne suis que peu déçu que tu n'aies pas réussi.
J'attends encore un peu, si quelqu'un avait la solution (on peut configurer la couleur depuis "Aperçu avant impression" -> Options, et j'escomptais un peu une solution utilisant le ComonDialogs d'Excel mais de ce côté aussi, mes essais sont infructueux.
Mais merci, Jacques. Je vais me débrouiller avec mes petits doigts et ma souris

A+