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
Pergunta
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 SubLink para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.