Grazie Alex, tutto risplende.
Ho modificato le dichiarazioni come segue e poi ho lanciato il comando di stampa come nella Sub più sotto.
L'unico piccolo problema è come chiudere l'applicativo Acrobat che mi rimane sotto.
Chiedo troppo se mi rivolgo ancora a te?.
ciao antonio Cuomo
Option Compare Database
#If VBA7 Or Win64 Then
' Win 64 specific code
Private Declare PtrSafe 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
#Else
' Win 32 specific code
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
#End If
Private Sub Comando10_Click()
Dim sFile As String
sFile = cartella & "Domanda Adesione ACTAM.PDF"
MsgBox "Tutto pronto per stampare il documento ?", vbAbortRetryIgnore
ShellExecute 0, "print", sFile, "", "", SW_HIDE
End Sub