Discussion :

[Un Internaute]

Bonjour le forum,
J'ai gratté pas mal sur le forum mais pas trouvé quelque chose de simple et qui fonctionne.
J'ai trouvé ça mais ça accroche sur la ligne en rouge.
J'ai la dernière version de PDFCreator installé

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub Macro1()
   Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True
End Sub

Merci pour les retours éventuels
Cordialement

[Marc-L]

Bonjour !

Juste vérifier le nom de l'imprimante de PDFCreator …

Sinon il vaut mieux utiliser sa version 1.7.3 comme conseillé par Doug dans son excellente contribution
(salut Philippe alias kiki29 !) …


______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[kiki29]

Salut, Marc tu comprendras que je ne puisse qu'approuver ton avis .....

@Un Internaute : sinon le code devrait ressembler à ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub Test()
Dim sActivePrinter As String
    sActivePrinter = Application.ActivePrinter
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
                                         ActivePrinter:="PDFCreator", Collate:=True
    Application.ActivePrinter = sActivePrinter
End Sub

Pour ce qui est des versions 2.2.x si tu ne l'utilises que pour imprimer cela devrait aller.
Par contre si tu veux manipuler des pdf via VBA/COM là ce n'est pas, malgré les promesses, encore possible sauf à revenir à la 1.7.3, téléchargeable tout en bas de cette liste.

[Un Internaute]

Bonjour kiki29,
Alors toi chapeau!!!
Ça fonctionne super avec la dernière version de PDFCreator. (2.2.2)
Je ne veux que faire des PDF pas imprimer.
Un GRAND merci à toi et aussi à Marc-L.
Bon WE à vous deux
Bien cordialement