stampa file pdf con vbscript

Question

Buongiorno a tutti, non so se è il posto giusto per il mio quesito. Ho la necessità di stampare un file  "resoconto" estenzione pdf residente in una cartella denominata "stampa" in automatico .  Ho inserito con vbscript il seguente codice:

Dim shell

Set shell = wscript.CreateObject("Shell.Application")

shell.Open "C:\stampa"

mi appare il file,  cliccandoci sopra mi si apre con adobe con i vari menu' a tendina.

chiedo se fosse possibile inserire un comando che mi avvii adobe e stampi immediatamente senza che mi appaia la schermata di adobe.

mi scuso se non mi sono spiegato bene. In pratica pulsante sul desktop apre la cartella con il file e stampi subito senza nessuna condizione.

Ringrazio tutti per la cortesia, Claudio

Answer 1

Buongiorno a tutti, non so se è il posto giusto per il mio quesito. Ho la necessità di stampare un file  "resoconto" estenzione pdf residente in una cartella denominata "stampa"

<cut>

Non ho capito.

Vuoi un vbscript (un vbscript, non codice vba) che stampi un determinato file .pdf senza chiedere conferma?

Il codice qui sotto stampa il file mioFile.pdf che si trova nella cartella C:\Prova:

    Dim objFSO

    Dim objFolder

    Dim objFile

    Set objFSO = CreateObject("Shell.Application")

    Set objFolder = objFSO.Namespace("C:\Prova")

        For Each objFile In objFolder.Items

            If LCase(objFile.Name) = "miofile.pdf" Then

                  objFile.InvokeVerbEx("Print")

            End if

        Next

   Set objFile = Nothing

   Set objFolder = Nothing

   Set objFSO = Nothing

Cambia il percorso ed il nome del file con i tuoi.

Answer 2

Ciao Mauro, lo script infatti non mi dà errori di sorta ma non mi stampa. Ho copiato il testo così come lo hai postato in notepad salvato stampa.vbs e  come tutti file. Mi si crea lo script nel desktop ma cliccandoci sopra non esegue nulla...  forse ho omesso qualcosa?  Ti ringrazio, Claudio.

Answer 3

               

 Ho anche creato una cartella "Prova" con file "miofile.pdf" ma ugualmente cliccandoci sopra non esegue e senza dare errori di sorta.... Manca qualcosa?             

Non lo so, qui funziona, altrimenti non l'avrei postato.

Che errore hai? Perché se c'è un errore, hai una MsgBox che lo specifica.

Vedi qui:

http://www.maurogsc.eu/vbscript/vbsstampafile.aspx

http://www.maurogsc.eu/vbscript/vbsstampatuttifiles.aspx

Answer 4

Buonasera al forum, in risposta a Mauro in effetti devo creare uno script che mi apra la cartella e mi stampi il file in essa residente senza chiedere percorsi oppure conferme. L'esempio che ho trovato in internet in precedenza (come consigliato da Inga) mi apre solo la cartella con il file in attesa di comandi. Cliccandoci sopra mi apre Adobe reader con  procedura File, stampa, etc etc. Lo script che mi ha inviato Mauro (cambiando il percorso ed il nome)  non esegue nulla?!?!.

 Ho anche creato una cartella "Prova" con file "miofile.pdf" ma ugualmente cliccandoci sopra non esegue e senza dare errori di sorta.... Manca qualcosa?  Ringrazio sempre della cortese attenzione,rimango in attesa di buone nuove, Claudio.

A proposito eseguendo uno script è possibile seguirlo passo passo così come per il VBA con il punto interruzione? grazie.