Imprimir un rango de paginas de un pdf

[JoseLuisLG]

Estoy intentando imprimir un rango de hojas de un pdf en una ruta en concreto pero no me funciona.

Imprime el ramgo pero del Excel en ve del Acrobat.

Sub imprime()
 Dim rutaPDF As String
rutaPDF = Sheets("Hoja1").Range("D2")
            F = Cells(2, 7)
            T = Cells(2, ?
            pid = Shell("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe " & Chr(34) & rutaPDF & Chr(34))

           
            Worksheets.PrintOut From:=F, To:=T
            DoEvents 'Paso 5 - Esperar que se Imprima el PDF
            hnd = OpenProcess(PROCESS_TERMINATE, True, pid) 'Paso 6 - Obtener el handle(manejador) del proceso(Adobe Reader)
            TerminateProcess hnd, 0 '
End Sub

[Abraham Valencia]

Hola

No imprime porque en ningún momento le indicas que lo haga con el pdf sino que mandas a imprimir las hojas del Excel.  Hasta donde recuerdo para imprimir solo algunas páginas de un pdf, necesariamente hay que usar el objeto Acrobat que solo es posible tenerlo cuando se instala alguna versión de Acrobat Pro, siendo, además, no tan simple su programación. 

[JoseLuisLG]

Muchas gracias Abraham.

Y sabes si hay un parámetro para imprimir una pagina? Estoy buscando pero solo he encontrado como abrir el pdf en una pagina

"Acrobat.exe /a page=" & pag 

 

Gracias

[Abraham Valencia]

Pues, como repito, hasta donde recuerdo no hay forma de hacerlo con Shell directamente, puede probar a usar SendKeys o similar, lo que es medio inestable y no necesariamente dará buen resultado siempre.