[XL-2003] Impression avec PDF995

[Mrfreeze117]

Bonjour a tous,

J'ai trouvé une manière d'imprimer avec PDF995 en automatisant au plus le processus mais c'est très moche. Si quelqu'un a une manière de faire plus fiable, je suis preneur parce que là ça marche mais ça ne me parais pas très fiable comme façon de faire.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim Sauvegarde As String
 
Sauvegarde = "D:\coucou"
 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne01:", Collate:=True
 
 
Start = Timer
Do
DoEvents
Loop Until Timer > Start + 5
Application.SendKeys (Sauvegarde) 'envoye le chemin de sauvegarde
Application.SendKeys ("{RETURN}") 'fait enter
 
Start = Timer
Do
DoEvents
Loop Until Timer > Start + 5
Application.SendKeys ("%{F4}") 'ferme avec altF4
 
 
End Sub

Merci d'avance

[kiki29]

Salut, aucune idée donc pour info via PDFCreator voir http://heureuxoli.developpez.com/office/word/doc2pdf/ ou Acrobat Distiller voir http://www.developpez.net/forums/d43...bat-distiller/

[Mrfreeze117]

Merci mais j'avais déjà lu ces article.

Le problème avec PDF995 c'est qu'il n'y a pas de références associé (si elle existe dite le moi parce que je ne l'ai pas trouvé).

[Mrfreeze117]

Bonjour a tous,

Est ce que quelqu'un connaît une instruction qui permettre d'attendre qu'une fenêtre s'ouvre?

Dans mon cas "Pdf995 Save As".

Un truc du style

Code :

1
2
3
4
5
6
 
Dowhile "fenêtre Pdf995 Save As n'existe pas
 
Loop
Application.SendKeys (Sauvegarde) 'envoye le chemin de sauvegarde
Application.SendKeys ("{RETURN}") 'fait enter

Merci d'avance

[kiki29]

Re, bis repetita placent : voir sur http://www.developpez.net/forums/d43...bat-distiller/ Post #4 dans Rechercher un mot dans un fichier PDF via Internet Explorer exemple avec Sleep

[Mrfreeze117]

Merci,

Mais je n'arrive à rien j'essaye depuis plusieurs jour et la je craque je n'arrive a rien. Pourrais-tu essayer de me guider un peu plus.

Merci d'avance

[patricktoulon]

bonjour

il y a une solution mais elle est assez complexe

sa serait d'utiliser les apis

trouver le processus concerné
pour cela :"Declare Function GetCurrentProcess Lib "kernel32" () As Long "

le handle de la fenetre "findwindowA"

pour te faire une idée du travail qui t'attend fait une recherche sur ces deux fonctions



au plaisir