Discussion :

[reckins]

bonjour à tous,

J'ai exploré pas mal de solutions pour automatiser une suite d'impressions sous excel avec vba. l'objet Printer étant absent de VBA je me rabbats sur une solution send keys (bancale?) pour arriver à mes fins.

Ma suite d'instruction pour reproduire le comportement de l'utilisateur consiste à modifier sur chaque feuille les propriétés de l'imprimante puis de sélectionner l'ensemble de mes feuilles et de lancer l'impression.

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
 
Feuil1.Select
'ouverture des propriétés de l'imprimante
Application.SendKeys "%fi%nk%r%+/"
'sélection d'un ensemble de paramètres d'impression sauvegardés
Application.SendKeys "{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}"
'validation
Application.SendKeys "~"
Application.SendKeys "~"
'sortie des propriétés de l'imprimante
Application.SendKeys "{ESCAPE}"

Cette première partie de code fonctionne, SAUF si je duplique le code pour la page suivante, et ce dès l'instruction de sélection de celle-ci:

Code vba :

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

feuil2.select

En espérant avoir été clair, merci d'avance pour les réponses que vous pourrez apporter.

[mayekeul]

en principe, une fois les commandes d'imprimante changées...
elle restent en mémoire ( pour la session tout au moins )
donc, les send keys que tu envoie sont relatives au premier changement effectués

[reckins]

Une fois les propriétés d'imprimantes changées, celle-ci restent effectivement en mémoire si j'execute mon code seulement pour ma feuille 1.

La particularité d'excel est de pouvoir parametrer de cette façon chacune des feuilles du classeur avec une configuration différente. Ce qui fonctionne d'ailleurs manuellement.

Je répete que mon code fonctionne pour la première page si je ne selectionne pas ma feuil2 après ma série de send keys.

De cette façon, à chaque changement de feuille pour y appliquer des changements, seul les changements sur la dernière feuille sont pris en compte. (ce qui n'est pas le comportement hors macro)

Mon problème n'est donc apparamment pas sur la gestion de l'imprimante mais sur l'utilisation des send keys en eux meme.

[ucfoutu]

Bonjour,

Pourquoi alors ne pas utiliser la fonction EnumJobs de la librairie winspool.drv de l'Api de Windows (en corrélation avec la fonction OpenPrinter de la même librairie pour avoir le handle nécessaire de l'imprimante) et ne traiter chacune des impressions que lorsque le spooler ne contient plus l'impression précédente ?

[reckins]

Merci de cette réponse qui me ferait surement apprendre beaucoup si je l'exploitais à fond (puisqu'il faudrait déjà que je cherche la signification et l'usage de tous les termes que je ne connais pas encore ! .
Cependant je crois détecter que ce que tu me proposes implique une impression feuille à feuille qui ne convient pas à la suite de mon problème, puisque parmi mes fameux paramètres d'impression je dois gérer du recto verso.
j'ai bien pensé à coller toutes les cellules à imprimer en recto verso sur une meme feuille, seulement, l'une des feuilles est en format paysage et l'autre en portrait.
Vous comprendrez qu'avant de modifier toute mise en page pour simplifier surement le problème, je cherche à automatiser quelque chose qui fonctionne jusqu'à maintenant de façon manuelle.