Excel VBA impression pdf avec PDF995

Mrfrize Messages postés 188 Date d'inscription   Statut Membre Dernière intervention   -  
Mrfrize Messages postés 188 Date d'inscription   Statut Membre Dernière intervention   -
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


A voir également:

1 réponse

Réponse 1 / 1
Mrfrize Messages postés 188 Date d'inscription   Statut Membre Dernière intervention   6
 
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