How to open and print pdf file in a folder?

[Flavien]

Hello everybody!

I frequently have to print batches of pdf files. The manual operation being tedious, I would like to automate this task.
I tried to adapt a code that I use to print excel files but, in this case, the pdf opens in excel format (total bug = A series of strange characters on each line of the workbook) and nothing happens.
Does anyone have an idea, please?

Sub impression_PDF()

Dim oFSO As Object
Dim oDossier As Object
Dim oFichier As Object
Dim i As Integer
Dim wb As Workbook

Application.ScreenUpdating = False

Set oFSO = CreateObject("Scripting.FileSystemObject")

'Set oDossier = oFSO.GetFolder("P:\01-Qualité\K - Qualité Usinage\05 - CREATION PCP PREMIER NIVEAU\GCU A VALIDER\CA VERSO\FAST\ESSAI COPIE" & "\")

Set oDossier = oFSO.GetFolder(ThisWorkbook.Worksheets("IMPRESSION").Range("h5").Value & "\")

For Each oFichier In oDossier.Files

'   Ouvrir chaque classeur contenu dans le dossier

Set wb = Workbooks.Open(Filename:=oFichier)

'   Définir les pages à imprimer et les propriétés d'impression

        'Imprimer la feuille PCP A3H
        With oFichier
            Application.PrintCommunication = False
            .PageSetup.BlackAndWhite = False
            .PageSetup.Orientation = xlLandscape
            .PageSetup.PaperSize = xlPaperA3
            Application.PrintCommunication = True
            .PrintOut From:=1, To:=1, copies:=1
      
        End With



'   Fermer le classeur et passer au suivant

wb.Close savechanges = False


Next oFichier

Application.ScreenUpdating = True

End Sub

 

[Flavien]

Hello!

No one would know how to open a PDF from Excel and print it?

 

[Jaafar Tribak]

Have you searched the board\web ?

A simple board search came up with this :

Print PDF files from folder.

Hi guys, I need a VBA formula which can help me with PDF files PRINTING. How I thing it should be ? : 1) Excel with button ( Print ) Which print all cells with numbered files. 2) Folder include reports names : 12763-12764_AZF-CS-4004 and in excel I write only AZF-CS-4004. Is it possible to...

www.mrexcel.com