Excel - Imprimir un link de un pdf

Private Declare Function ShellExecuteA Lib "shell32.dll" (ByVal HWND As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL As Long = 1

Sub test()

Dim rng As Range

On Error Resume Next

Set rng = Range("D4")

If rng.Hyperlinks.Count = 1 Then  '//Tiene link??

  'Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe /N /T " & rng.Value

  'Call ShellExecuteA(0&, "print", rng.Value, vbNullString, vbNullString, SW_SHOWNORMAL)

  'Call ShellExecuteA(0&, "Open", "C:\Archivos de programa\Foxit Software\Foxit Reader\foxit reader.exe", "-p " & rng.Value, 0&, SW_SHOWNORMAL)

End If

End Sub

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim Datos As Object

'On Error Resume Next

Set Datos = CreateObject("word.Application")

Datos.DisplayAlerts = False

Datos.Documents.Print FileName = "K:\11PCB\99FAROLEAN\C_DokumenteundVorlagen\Farbinfo\RAL-FarbenFatzer.docx"

Datos.Visible = False

Datos.ActiveDocument.PrintOut

Datos.Quit

Set Datos = Nothing

Application.ScreenUpdating = True

End Sub