- 10 Fev 2021 às 09:41
#62091
Bom dia pessoa,
Poderiam me ajudar,
preciso do cód. VBA onde ao clicar em "CLICK AQUI PARA IMPRIMIR" o sistema:
ABRA O ARQUIVO QUE QUERO; (Nome padrão e vai sempre está no mesmo lugar)
SELECIONE AS PÁGINAS (Conforme vai está na celular B1)
tipo eu conseguir algumas orientações mas não conseguir fazer alguem consegue montar uma base por favor.
Orientações:
1
Abra o editor do VBA no aplicativo do Microsoft Office que você deseja que o código a ser celebrado . Clique em " Arquivo"> "Ferramentas" > "Macros" > " Editor do Visual Basic " em um aplicativo do Microsoft Office 2003 ou anterior. Clique em " guia Desenvolvedor "> " Visual Basic ", na edição do Microsoft Office 2007.
2
Clique em qualquer lugar na janela de código onde você deseja inserir o código.
3
Adicione o código para abrir o arquivo PDF. Você código deve ser algo como isto :
Sub OpenPDF () Dim strPDFFileName Como String'Edit para adicionar o nome do arquivo completo para o arquivo PDF que deseja openstrPDFFileName = " C: \\ examplefile.pdf " ' Esta próxima função verifica se o arquivo não estiver openIf não FileLocked ( strPDFFileName ) Then'If ele retorna False, em seguida, continuar abrindo o PDF fileDocuments.Open strPDFFileName ) End Sub IfEnd
Copie e cole este código em seu janela de código . A única parte do código que você vai precisar para mudar é o caminho completo para o arquivo PDF que deseja abrir . Então , substitua o " C: \\ examplefile.pdf " com o seu próprio caminho e nome do arquivo
4
Adicione o código para imprimir o arquivo PDF. . O código de impressão é :
Sub PrintPDF ( strPDFFileName como string) Dim sAdobeReader como String'This é o caminho completo para o aplicativo Adobe Reader ou o Acrobat em seu computersAdobeReader = "C: \\ Arquivos de Programas \\ Adobe \\ Acrobat 6.0 \\ Leitor \\ AcroRd32.exe " RetVal = Shell ( sAdobeReader &" /P "& Chr (34 ) & sStrPDFFileName & Chr (34) , 0) End Sub
A única parte desse código que precisa ser alterado é o caminho completo para o Adobe reader, Acrobat ou qualquer leitor de PDF em seu computador.
5
Use um gatilho para chamar as funções . É assim que o código vai saber quando para executar. Use tudo o gatilho que você quer, uma forma , botão, caixa ou outro item de formulário . Por exemplo, use a declaração de "Click" de um botão. Quando o botão é clicado , o documento PDF será aberto e , em seguida, imprimir. O código fica assim:
Sub CommandButton_Click () ' Chama a função aberto primeiro para que o PDF pode abrir antes printingCall OpenPDF'Now chamar a função de impressão para que o PDF pode ser printedCall PrintPDFEnd Sub
Basta copiar a parte do meio do código acima ( entre o Sub e End Sub ) para o item de formulário e acionar você decidir usar .
Poderiam me ajudar,
preciso do cód. VBA onde ao clicar em "CLICK AQUI PARA IMPRIMIR" o sistema:
ABRA O ARQUIVO QUE QUERO; (Nome padrão e vai sempre está no mesmo lugar)
SELECIONE AS PÁGINAS (Conforme vai está na celular B1)
tipo eu conseguir algumas orientações mas não conseguir fazer alguem consegue montar uma base por favor.
Orientações:
1
Abra o editor do VBA no aplicativo do Microsoft Office que você deseja que o código a ser celebrado . Clique em " Arquivo"> "Ferramentas" > "Macros" > " Editor do Visual Basic " em um aplicativo do Microsoft Office 2003 ou anterior. Clique em " guia Desenvolvedor "> " Visual Basic ", na edição do Microsoft Office 2007.
2
Clique em qualquer lugar na janela de código onde você deseja inserir o código.
3
Adicione o código para abrir o arquivo PDF. Você código deve ser algo como isto :
Sub OpenPDF () Dim strPDFFileName Como String'Edit para adicionar o nome do arquivo completo para o arquivo PDF que deseja openstrPDFFileName = " C: \\ examplefile.pdf " ' Esta próxima função verifica se o arquivo não estiver openIf não FileLocked ( strPDFFileName ) Then'If ele retorna False, em seguida, continuar abrindo o PDF fileDocuments.Open strPDFFileName ) End Sub IfEnd
Copie e cole este código em seu janela de código . A única parte do código que você vai precisar para mudar é o caminho completo para o arquivo PDF que deseja abrir . Então , substitua o " C: \\ examplefile.pdf " com o seu próprio caminho e nome do arquivo
4
Adicione o código para imprimir o arquivo PDF. . O código de impressão é :
Sub PrintPDF ( strPDFFileName como string) Dim sAdobeReader como String'This é o caminho completo para o aplicativo Adobe Reader ou o Acrobat em seu computersAdobeReader = "C: \\ Arquivos de Programas \\ Adobe \\ Acrobat 6.0 \\ Leitor \\ AcroRd32.exe " RetVal = Shell ( sAdobeReader &" /P "& Chr (34 ) & sStrPDFFileName & Chr (34) , 0) End Sub
A única parte desse código que precisa ser alterado é o caminho completo para o Adobe reader, Acrobat ou qualquer leitor de PDF em seu computador.
5
Use um gatilho para chamar as funções . É assim que o código vai saber quando para executar. Use tudo o gatilho que você quer, uma forma , botão, caixa ou outro item de formulário . Por exemplo, use a declaração de "Click" de um botão. Quando o botão é clicado , o documento PDF será aberto e , em seguida, imprimir. O código fica assim:
Sub CommandButton_Click () ' Chama a função aberto primeiro para que o PDF pode abrir antes printingCall OpenPDF'Now chamar a função de impressão para que o PDF pode ser printedCall PrintPDFEnd Sub
Basta copiar a parte do meio do código acima ( entre o Sub e End Sub ) para o item de formulário e acionar você decidir usar .
