[pctechdr]

Αν θέλεις οπωσδήποτε τον διάλογο εκτύπωσης του Acrobat Reader (Δεν μπορω να φανταστώ καν τον λόγο γι αυτό) τότε μπορείς με λίγο κώδικα.

Public Function PrtPdf(sDocumentFullPath As String)
Dim str, sReader As String
sReader = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
str = Shell(sReader & " /P " & Chr(34) & sDocumentFullPath & Chr(34), 0)
End Function

Βασική προυπόθεση να έχεις εγκατεστημένο τον Acrobat Reader και βεβαιώσου ότι η διαδρομή με τα έντονα γράμματα στον κώδικα ισχύουν.