Excel VBA impression pdf avec PDF995

Fermé
Mrfrize
Messages postés
185
Date d'inscription
jeudi 20 septembre 2007
Statut
Membre
Dernière intervention
17 août 2018
- 23 janv. 2012 à 18:35
Mrfrize
Messages postés
185
Date d'inscription
jeudi 20 septembre 2007
Statut
Membre
Dernière intervention
17 août 2018
- 26 janv. 2012 à 17:26
Bonjour,

J'ai quelques soucis a automatiser mon impression pfd d'une feuille excel.

voici ma macro:

Sub Macro1()

Application.ActivePrinter = "PDF995 on Ne00:"
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:= _
"PDF995 on Ne00:", Collate:=True, _
PrToFileName:="C:\Documents and Settings\Stephane.Dupre\Desktop\coucou"

End Sub

Cela me créer bien un fichier, mais sans extention. Lorsque je rajoute .pdf au nom du fichier il me dit que le fichier une extention non reconnu ou que le fichier est endommagé.

Ca fait un moment que je cherche comment faire mais la je bloque.

Si quelqu'un a une solution je suis tout ouie.

Mercie d'avance


1 réponse

Mrfrize
Messages postés
185
Date d'inscription
jeudi 20 septembre 2007
Statut
Membre
Dernière intervention
17 août 2018
6
26 janv. 2012 à 17:26
Boujour a tous,

J'ai trouvé une maniere de faire, mais je vous préviens c'est tres moche.


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



Si quelqu'un a une maniere de faire qui serai mieux je suis preneur parce que la ca marche mais ca ne me parais pas tres fiable comme facon de faire.

Merci d'avance
0