Macro to Print Select Pages from PDFs

[atbarrajas]

Hello everyone,


I developed the following code to print PDFs from a list I already have generated with file paths:

Sub PrintPDF()

    Dim i, count As Integer
    Dim path(), file, adobe As String
    Dim cell As Range
    
    Set cell = Range("A3")
    adobe = "C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe"
    
    count = cell.End(xlDown).Value
    ReDim Preserve path(count)
    
    For i = 1 To count
        file = cell.Offset(1, i).Value
        Shell (adobe & " /n /h /t " & file)
        
    Next i
    
End Sub

Does anyone have any insight on how I can modify this so that I only print the first page of every PDF?


Thank you for your help.