atbarrajas
New Member
- Joined
- Mar 10, 2014
- Messages
- 4
Hello everyone,
I developed the following code to print PDFs from a list I already have generated with file paths:
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.
I developed the following code to print PDFs from a list I already have generated with file paths:
Code:
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.