一个VBA程序1读取当前目录下所有的PDF文件。2把PDF文件名存在一个Excel中。3按照Excel中的顺序循环打印pdf十次。

Sub PrintPDF()

Dim file As String
Dim i As Integer
Dim j As Integer

'获取当前目录下的所有PDF文件名
file = Dir(ThisWorkbook.Path & "\*.pdf")
i = 1

'打开Excel并创建一个名为"PDF文件名"的工作表
Dim wb As Workbook
Set wb = Workbooks.Add
wb.Sheets(1).Name = "PDF文件名"

'将PDF文件名写入Excel中
Do While file <> ""
    wb.Sheets(1).Cells(i, 1) = file
    i = i + 1
    file = Dir
Loop

'循环打印PDF文件
For j = 1 To 10
    For i = 1 To wb.Sheets(1).UsedRange.Rows.Count
        '打印PDF文件
        Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /N /T """ & ThisWorkbook.Path & "\" & wb.Sheets(1).Cells(i, 1) & """", vbHide
    Next i
Next j

'关闭Excel
wb.Close False

End Sub