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
Imprimir PDF direto da pasta
em Softwares Livres
Postado
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