Ciao
supponiamo che a partire da A1 hai l'elenco dei file pdf che vuoi stampare (compresi di percorso), per esempio:
A1: c:\TuaCartella\file1.pdf
A2: c:\TuaCartella\file2.pdf
ecc
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" _
(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
Sub PrtPdf()
r = 1
Do Until Cells(r, 1) = ""
mFile = Cells(r, 1)
X = ShellExecute(0, "Print", mFile, 0, 0, 0)
r = r + 1
Loop
End Sub
saluti
[Modificato da dodo47 05/03/2016 12:53]
Domenico
Win 10 - Excel 2016