есть такой макрос,
Dim pshell As Object
Dim n As Integer
Set pshell = CreateObject("wscript.shell")
n = ActiveCell.Value
pshell.Run pshell.regread("HKCR\software\adobe\acrobat\exe\") & " /a page=" & n & " " & "" & ActiveWorkbook.Path & "\1.pdf"
но им я только открываю документ на нужной странице, а вот напечатать ее только руками пока(