Jean Mesquita

Boa tarde. Estou anexando meu projeto onde meu intuíto é digitar na textbox o nome do PDF que está em uma pasta já determinada no código e imprimir esse arquivo direto, simulando como se fosse clicar com o botão direito do mouse e ir em imprimir. Porém até o momento só consegui fazer com que abra o arquivo PDF. Poderiam me ajudar. Private Sub CommandButton1_Click() Dim stAppName As String Dim lcnh As String 'Dim impr As String lcnh = "C:\PDF\" & TextBox1.Text & Label2.Caption stAppName = "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe " & lcnh Call Shell(stAppName, 1) End Sub