Discussion :

[melouille56]

Bonjour à tous

Je fais une fois de plus appel à vous puisque je bloque sur un point dans ma macro.
Je souhaiterais ouvrir un Pdf via Excel, l'imprimer, puis le refermer.

Le 1er point c'est bon, avec Shell, tout roule. Mais pour l'imprimer, c'est autre chose. ActiveWindow.PrintOut, ca ne marche pas.

Est-ce que quelqu'un sait comment l'imprimer, vu que j'ai réussi à l'ouvrir.
Et par la même occasion, comment le refermer.

Merci d'avance.

[Commodore]

Salut!

As-tu essayé de simuler un Ctrl+P avec SendKeys après avoir ouvert le pdf ?

[melouille56]

Non je n'ai pas essayé mais je ne sais pas non plus comment faire. Jamais utilisé cette méthode.
Tu peux m'aider svp ?

[Commodore]

après ouverture de acrobat avec ton Shell,
utilise la commande suivante :

Code :

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

SendKeys "^P"

[fring]

Bonjour,

Solution dans la

Comment imprimer un fichier pdf depuis excel ?
.

[melouille56]

Super !!! c'est exactement ce que je cherchais.
Désolée pour ce message inutile.
Merci encore

[thom07lamy]

Bonjour,
j'ai le même problème que melouille56, mais je voudrais utiliser une autre solution.

Je m'explique:
le fichier pdf à imprimer est un plan, qui possède une mise en page particulière.
Il s'agit d'un fichier pdf A3, que je dois imprimer en A4.

Or, le:

Code :

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

ShellExecute x, "print", NomFichier, "", "", 1

fonctionne, mais ne respecte pas la mise en page...

D'un autre côté, l'utilisation du SendKeys ne me plaît guère, car sa stabilité laisse à désirer (un clic utilisateur intempestif et c'est planté...).

Idéalement, je voudrais utiliser des objets comme AcroApp et AcroAVDoc, mais je ne trouve pas de doc là-dessus...

Merci d'avance,
Thomas

[thom07lamy]

Bonjour,
j'ai fini par trouver la solution à mes problèmes d'impression.
(Comme quoi la nuit porte toujours conseil quelque part )

Code :

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

1
2
3
4
5
 'On ouvre le plan
    ShellExecute retour_imprime, "open", chemin_plan, "", "", 1
    Application.Wait (Now + TimeValue("0:00:02"))
    'On imprime le plan
    ShellExecute retour_imprime, "print", chemin_plan, "", "", 1

Le premier ShellExecute sert à passer le paramètre "Shrink to PrintableArea" à l'imprimante (du coup mon pdf en A3 sera bien imprimé en A4).

Le seul souci, c'est qu'on se retrouve avec bcp de fenêtre PDF, mais je les ferme avec ça, à la fin de ma boucle:

Code :

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

1
2
3
'On ferme les fichiers Acrobat ouverts pour l'impression des plans
Application.Wait (Now + TimeValue("0:00:10"))
Shell "TASKKILL /IM AcroRd32.exe /F"

Le Application.Wait c'est pour bien pouvoir démarrer l'impression avant de fermer Acrobat