Printing via amount

I'm working an excel document that allows a user to print multiple documents saved in different folder directory's with the press of a single button. I currently have a VBA code which allows the printing of a selected sheet via 2 drop downs. One for the selected sheet & one for the amount.

I'm struggling with a code that will look at a cell with the directory of the sheet in, and next to it. the amount to print. It would need to print them all with 1 click. Does anybody have any idea of what would work?

I have attached an image, I'm going to need 4 buttons but I'd imagine the same code would work with a few range adaptations. the button will also be on a separate tab in the worksheet. Thank you

Below i have attached the code i currently use to print documents one at a time, i'm struggling to modify it to print a list with the amount next to listed document.

Option Explicit Sub OnePrint()
Dim rngDocInfo As Range
Dim objApp As Object, ObjDoc As Object
Dim myPath As String
Dim OutCopies As Integer
OutCopies = Sheet1.Range("J20").Value

Set rngDocInfo = Sheet1.Range("O18")
myPath = UCase(rngDocInfo.Value2)

If Len(Dir(myPath)) = 0 Then
    MsgBox "Invalid filename. Please contact Dean Hewitt"
    Exit Sub
End If

'~~> Get file extension and check if it is an Excel document
If Right(myPath, Len(myPath) - InStrRev(myPath, ".")) Like "XLS*" Then
    Set objApp = CreateObject("Excel.Application")
    Set ObjDoc = objApp.Workbooks.Open(rngDocInfo.Value2, ReadOnly:=True)
    objApp.Visible = False
    ObjDoc.PrintOut Copies:=OutCopies
    objApp.Quit
    
'~~> Get file extension and check if it is a Word document
ElseIf Right(myPath, Len(myPath) - InStrRev(myPath, ".")) Like "DOC*" Then
    Set objApp = CreateObject("Word.Application")
    Set ObjDoc = objApp.Documents.Open(rngDocInfo.Value2, ReadOnly:=True)
    objApp.Visible = False
    ObjDoc.PrintOut Copies:=OutCopies
    objApp.Quit
    
Else
    MsgBox "Unknown Document type"
End If

End Sub