Outro Como imprimir uma lista de arquivos

[Ceifador1998]

Gostaria de saber como faço para imprimir uma lista de arquivos (imagens,PDFs, etc) que eu criei, no caso são mais de 100 arquivos que tenho que imprimir e o problema é que na pasta tem mais de mil arquivos então não posso simplesmente imprimir todos e tenho que ficar selecionando um de cada vez para imprimir...

A informação que tenho nesse arquivo de texto do bloco de notas é o caminho deles

Exemplo:

"C:\Users\anonimo\ImageShare\Screenshots\Screenshot_2020-02-25-19-01-54.png" 

"C:\Users\anonimo\ImageShare\Screenshots\Screenshot_2020-03-07-23-05-06.png"
"C:\Users\anonimo\ImageShare\Screenshots\Screenshot_2020-03-09-18-13-20.png"
"C:\Users\anonimo\ImageShare\Screenshots\Screenshot_2020-03-09-22-54-37.png"

 

Agora que criei o arquivo com o caminho deles como faço para imprimi-los? coloco um comando na frente de cada um dos caminhos? ou um no começo e depois só repito os caminhos?

[ricardo_br]

Qual o seu sistema operacional?

 

Você tem uma lista com os caminhos de 1000 arquivos e desses você quer imprimir apenas 100 ou você já tem a lista com os 100 que você quer imprimir?

[Ceifador1998]

Meu sistema operacional é windows 10, eu tenho só o caminho dos que eu quero imprimir.

[ricardo_br]

Pode criar um arquivo .bat usando a lista dos arquivos que você tem.

 

Por exemplo para imprimir uma foto você pode usar o paint mais o parametro /pt + nome da foto. Para imprimir PDF você pode baixar um programa chamado PDFtoPrinter

 

ex:

mspaint /pt "C:\Users\anonimo\ImageShare\Screenshots\Screenshot_2020-02-25-19-01-54.png" 

mspaint /pt "C:\Users\anonimo\ImageShare\Screenshots\Screenshot_2020-03-07-23-05-06.png"

PDFtoPrinter.exe "C:\users\anonimo\PDFs\_2020-03-09-18-13-20.pdf"

PDFtoPrinter.exe "C:\users\anonimo\PDFs\_2020-03-09-18-13-21.pdf"

 

É bom testar com um arquivo primeiro para ver se resulta no esperado. Quando a lista tiver pronta você salva ela com extensão .bat e clica para executar

 

 

 

 

[Ceifador1998]

Boa, muito obrigado...

Mas não tem como imprimir PDF sem o auxílio de programas???

[ricardo_br]

Não encontrei nenhum meio sem ter que abrir aquelas opções de imprimir....

[Basole]

Segue sugestao em vbs

Cole o codigo abaixo no bloco de notas e salve com as extensao *.vbs

 

Set fso = CreateObject("Scripting.FileSystemObject")

'ALTERE O CAMINHO E NOME ARQUIVO TXT QUE CONTEM OS DADOS DOS ARQUIVOS SERAO IMPRESSOS
Set file = fso.OpenTextFile("c:\Temp\Teste.txt", 1) 

Do Until file.AtEndOfStream
  Line = file.Readline
  If fso.FileExists(Line) Then
     CreateObject("Shell.Application").Namespace(0).ParseName(Line).InvokeVerb ("Print")
  End If
Loop