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

Формулировка задачи:

                    Листинг программы
                
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

Кроме ключей

/p /h

есть ещё что-нибудь? Интересует, чтобы код переходил к следующей строке кода, только после того, как документ отправлен на принтер. Ещё интересует, как указать конкретный принтер.

Решение задачи: «Печать с использованием функции Shell»

textual
                            Листинг программы 
                        
Declare Function FindWindowA Lib "User32.dll" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long