Sub SetupBtn()
    ActiveSheet.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Select
    PrintHyperlinkedPDFs
End Sub

Sub PrintHyperlinkedPDFs()

Dim PDFrng As Range, PDF As Range
Dim AdobeReader As String, pdfLINK As String

Dim objShell
Set objShell = CreateObject("Shell.Application")
                                        
AdobeReader = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"
Set PDFrng = Selection                                                                                               
                                        
For Each PDF In PDFrng
    If PDF.Hyperlinks.Count > 0 Then pdfLINK = PDF.Hyperlinks(1).Address
   
objShell.ShellExecute pdfLINK, "", "", "print", 0

Application.Wait Now + TimeValue("00:00:01")

Next PDF

Selection.Cells(1).Select


End Sub

Sub Kill_All_PDFs()

   On Error Resume Next

    Dim objectWMI As Object
    Dim objectProcess As Object
    Dim objectProcesses As Object

    Set objectWMI = GetObject("winmgmts://.")
    Set objectProcesses = objectWMI.ExecQuery( _
        "SELECT * FROM Win32_Process WHERE Name = 'AcroRd32.exe'") '< Change if you need be


    For Each objectProcess In objectProcesses
        Call objectProcess.Terminate
    Next

    Set objectProcesses = Nothing
    Set objectWMI = Nothing
End Sub

Sub tt()

Dim PDFrng As Range, PDF As Range
Dim AdobeReader As String, pdfLINK As String

Dim objShell
Set objShell = CreateObject("Shell.Application")
Set sh = ActiveSheet

AdobeReader = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"


ActiveSheet.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Select
For i = 1 To Selection.Cells.Count

pdfLINK = Get_Hyperlink_Address(i)
 
objShell.ShellExecute pdfLINK, "", "", "print", 0

Application.Wait Now + TimeValue("00:00:01")


Next i

End Sub

Sub tt()


Dim objShell
Set objShell = CreateObject("Shell.Application")
Set sh = ActiveSheet

Set sh = ActiveSheet
For i = 1 To 5

objShell.ShellExecute sh.Cells(i, 1), "", "", "print", 0

Next i

Application.Wait Now + TimeValue("00:00:01")

End Sub

Dim TIMEOUT
TIMEOUT = ActiveSheet.Range("О1").Value
 
  Dim i As Long, Sh As Worksheet, t As Single
  Set Sh = ActiveSheet
  lastRow = ActiveSheet.Range("I" & Rows.Count).End(xlUp).Row
  
  With CreateObject("Shell.Application")
    For i = 3 To lastRow
      ' Печатать
      .ShellExecute Sh.Cells(i, 9).Value, "", "", "print", 0&
      ' Подождать
      t = Timer + TIMEOUT
      While Timer < t
        DoEvents
      Wend
    Next
  End With
  
  
Selection.Cells(1).Select

    Option Explicit
    Public Const STNDRD_RIGHTS_RQRD = &HF0000
    Public Const PRNTR_ACCSS_ADMIN = &H4
    Public Const PRNTR_ACCSS_USE = &H8
    Public Const PRNTR_ALL_ACCSS = STNDRD_RIGHTS_RQRD Or PRNTR_ACCSS_ADMIN Or PRNTR_ACCSS_USE
    Public Const PRNTR_CNTRL_PAUSE = 1
    Public Const PRNTR_CNTRL_RESUME = 2
    Public Const PRNTR_CNTRL_PURGE = 3
    Public Const NULL_PTR = 0&
    Public Type PRNTR_DFLTS 'pdf
        DataType As Long
        DevMode As Long
        DsrdAccess As Long
    End Type
    Public Declare PtrSafe Function OpenPrinter1 Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRNTR_DFLTS) As LongPtr
    Public Declare PtrSafe Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal Command As Long) As LongPtr
    Public Declare PtrSafe Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As LongPtr
    Public Enum ePrinterControl 'epc
        PrntrCntrlPause = PRNTR_CNTRL_PAUSE
        PrinterControlPurge = PRNTR_CNTRL_PURGE
        PrinterControlResume = PRNTR_CNTRL_RESUME
    End Enum
    Public Function SetPrntrStts(ByVal pstrPrntrName As String, ByVal pepcPrntrCntrl As ePrinterControl) As Boolean
        
        Dim pdfMyDflts As PRNTR_DFLTS
        Dim lngPrntrHandle As Long
        Dim lngReturn As Variant
        Dim blnReturn As Boolean
            
        pdfMyDflts.DsrdAccess = PRNTR_ALL_ACCSS
        lngReturn = OpenPrinter1(pstrPrntrName, lngPrntrHandle, pdfMyDflts)
        blnReturn = lngReturn = 0 Or lngPrntrHandle = 0 '  Не смог открыть принтер если blnReturn=False
        
        If blnReturn Then
            blnReturn = SetPrinter(lngPrntrHandle, NULL_PTR, ByVal NULL_PTR, pepcPrntrCntrl) <> 0  'Выставить статус принтера
        End If
        If blnReturn Then
            If Not lngPrntrHandle = 0 Then
                ClosePrinter lngPrntrHandle
            End If
        End If
        
        SetPrntrStts = blnReturn
        
    End Function

Sub otl()
    MsgBox SetPrntrStts("HP LaserJet 400 M401 PCL 6 (Ne07:)", PRNTR_CNTRL_PAUSE)
End Sub