imprime pdf direct sans enregister

[tinet]

Bonjour Le forum,


existe-t-il une possibilité pour imprimer directement le PDF créé sans être obligé de l'enregistrer.

Voici mon code.

Private Sub CommandButton1_Click()
Worksheets("preparation").Copy
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:", Collate:=True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub