Печать с использованием функции Shell

Sub Procedure_1()
 
    Const sPathApplication As String = "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe"
    Const sFilePath As String = "C:\Documents and Settings\Пользователь\Рабочий стол\Документ 1.pdf"
    
    'WindowStyle:=vbNormalFocus используется для виртуальных принтеров,
    'чтобы было видно диалоговое окно, которое появляется
    'когда файл отправляют на печать.
    'В случае Adobe Reader в любом случае появится диалоговое окно программы.
    'Это же происходит, если распечатать файл, щ. по нему правой кн. мыши и выбрав "Печать".
    Shell PathName:=sPathApplication & " /p /h " & sFilePath, WindowStyle:=vbNormalFocus
        
End Sub