Início / coding / Perguntas / 79309398
Accepted
Ramadan Moussa
Asked: 2024-12-26 19:47:20 +0800 CST

Imprima 2 arquivos PDF externos enquanto trabalha em uma planilha do Excel

  • 772

Ao trabalhar em uma planilha do Excel, preciso imprimir dois arquivos PDF externos diferentes na mesma pasta para meus clientes assinarem.

Aqui estão os caminhos dos arquivos "D:\Modelos para impressão\Reconhecimento.pdf" e "D:\Modelos para impressão\Permissão de trabalho.pdf"

Eu encontrei esse código enquanto pesquisava na internet, mas infelizmente não está funcionando

sub print_file()

Print_and_Close_PDF "D:\Templates to Print\Acknowledgment.pdf"
End sub`
excel

3 respostas

  1. Trabalhos verificados aqui:

    Option Explicit

    Sub PrintPDF() Dim pdfPath como String Dim pdfPath2 como String Dim acroPath como String Dim acroPath2 como String

    ' Defina o caminho para o PRIMEIRO arquivo PDF pdfPath = "D:\Templates to Print\Acknowledgment.pdf"

    ' Defina o caminho para o Adobe Acrobat Reader (ajuste se o seu caminho for diferente) acroPath = "C:\Arquivos de Programas\Adobe\Acrobat DC\Acrobat\Acrobat.exe"

    ' Imprima o arquivo PDF Shell """" & acroPath & """ /t """ & pdfPath & """", vbNormalFocus

    ' Defina o caminho para o SEGUNDO arquivo PDF pdfPath2 = "D:\Templates to Print\Works Permit.pdf"

    ' Imprima o arquivo PDF Shell """" & acroPath & """ /t """ & pdfPath2 & """", vbNormalFocus

    Fim do sub

    • 0

  2. Em todas as plataformas, o melhor e mais fácil aplicativo de impressão de PDF (virtual como imagens ou impressora física do sistema) é o GhostScript.

    Muitas vezes encapsulado desnecessariamente em linguagens de programação ou scripts complexos!

    Tudo o que é necessário no Windows é uma saída nominal e uma lista de arquivos a serem processados. (Se estiver usando um arquivo cmd, você pode precisar de dois %'s, eles serão convertidos em um cada na linha de comando)

    "path to \GSwin##c.exe" -sDEVICE=mswinpr2 -o "%printer%\\printServer\printerNameWith Spaces" @"list.txt"

    Assim, no Excel você pode exportar sua lista de arquivos para um arquivo de texto e executá-lo.

    lista.txt

    "D:\Templates to Print\Acknowledgment.pdf"
"D:\Templates to Print\Works Permit.pdf"

    Como exemplo aqui, emulamos o envio de 2 PDFs de página única para a impressora e podemos ver que há 2 páginas fluindo pela fila de impressão.

    insira a descrição da imagem aqui

    • 0
  3. Best Answer

    Como alternativa;

    Sub Test()
    Dim file1 As String, file2 As String
    
    file1 = "D:\Templates to Print\Acknowledgment.pdf"
    file2 = "D:\Templates to Print\Works Permit.pdf"
    
    CreateObject("Shell.Application").Namespace(0).ParseName(file1).InvokeVerb ("Print")
    CreateObject("Shell.Application").Namespace(0).ParseName(file2).InvokeVerb ("Print")
End Sub
    • 0

relate perguntas