none
Imprimir vários arquivos de um diretório. RRS feed

  • Pergunta

  • Pessoal,

    Como posso criar um script que lista o conteúdo de uma pasta com vários documentos pdf e os imprima na impressora padrão?

    A idéia é utilizar o FoxitReader.exe para abrir os PDFs e automaticamente imprimí-los na impressora virtual CutePDF (e diminuir drasticamente o tamanho do arquivo).

    Sei que o FoxitReader aceita linha de comando, sendo:

    foxitreader.exe /t arquivo.pdf /p

    O problema é que não posso utilizar um *.pdf para imprimir todos os arquivos da pasta (um por vez para não travar o computador por falta de recursos).

    Alguém já teve uma necessidade semelhante?

    quarta-feira, 24 de março de 2010 20:25

Respostas

  • Olá,

    Verifique o script abaixo:

     

    strPasta = "c:\teste"


    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(strPasta)
    For Each strFileName in objFolder.Items
       imprime strFileName.path
    Next


    '============================================

    Sub Imprime(strArquivo)

    Set WSHShell = WScript.CreateObject("WScript.Shell")


    WSHShell.Run "foxitreader.exe /t " & strArquivo &  " /p", 1, true

    End sub

     

    Até mais,

    Jesiel

    Obs.: Se útil, classifique

     

    • Marcado como Resposta Edson S Freitas quinta-feira, 25 de março de 2010 14:45
    quinta-feira, 25 de março de 2010 12:16

Todas as Respostas

  • Olá,

    Verifique o script abaixo:

     

    strPasta = "c:\teste"


    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(strPasta)
    For Each strFileName in objFolder.Items
       imprime strFileName.path
    Next


    '============================================

    Sub Imprime(strArquivo)

    Set WSHShell = WScript.CreateObject("WScript.Shell")


    WSHShell.Run "foxitreader.exe /t " & strArquivo &  " /p", 1, true

    End sub

     

    Até mais,

    Jesiel

    Obs.: Se útil, classifique

     

    • Marcado como Resposta Edson S Freitas quinta-feira, 25 de março de 2010 14:45
    quinta-feira, 25 de março de 2010 12:16
  • Jesiel,

    Como sempre, funcionou perfeitamente...

    Agradeço a ajuda.

     

    Abraços.

    quinta-feira, 25 de março de 2010 14:45
  • Olá Jesiel, 

    Tentei rodar o script e exibe uma mensagem "There was an error opening this document. This file cannot be found"  Acontece que já chequei a pasta, mudei de lugar, até utilizei usuario admin da minha rede e ainda sim nao encontra os arquivos. Voce teve esta dificuldade tambem ? 

    Savei o arquivo como .vbs  correto ? 

    Obrigado

    Vinicius

    terça-feira, 4 de dezembro de 2018 12:02