stampa file pdf

[matzap]

Ciao,
in una cartella chiamata persone, vorrei stampare tutti i file pdf che vi sono all'interno.
in teoria non mi serve aprirli ma solo stamparli.
potete aiutarmi?

ciao e grazie

[davide72]

devi stamparli tutti insieme? o uno per volta

[matzap]

uno per volta.
sono riuscito ad aprirli uno per volta con questa macro:

Sub apri_file()
Dim nomefile As String
Dim lista As Variant
Dim i As Integer
i = 1
Cells(i, 2).Select
lista = Selection.Value
MsgBox lista
Do
Cells(i, 2).Select
'aprifile()
nomefile = lista & ".pdf"
MsgBox nomefile
ActiveWorkbook.FollowHyperlink "C:\persone\" & nomefile
i = i + 1
MsgBox i
Cells(i, 2).Select
lista = Selection.Value
Loop While (lista <> 0)
i = 1
End Sub

e ora devo stamparli...

[davide72]

questo l' avevi gia letto? viewtopic.php?t=94183

[matzap]

si l'ho letto, il problema è che una volta aperto non riesco a indirizzare il comando PrintOut sul file pdf. Mi stampa sempre il foglio excel

[davide72]

non saprei , prova con layout pagina > setup pagina > clicca su ok, quindi barra dei menu > file >stampa > e dovrebbe aprirsi il profilo della stampante pdf

[matzap]

??? forse c'è una incomprensione, io devo stampare relamente il file pdf che ho già aperto:
dopo l'istruzione
ActiveWorkbook.FollowHyperlink "C:\persone\" & nomefile

se scrivo
Windows(nomefile).select
mi da errore...

[davide72]

allora stiamo parlando due lingue diverse, prova questo con codici e istruzioni http://translate.google.it/translate?hl ... whyperlink

ciao

[matzap]

continuo a non trovare soluzione

una volta aperto il file chiamato " matteo.pdf" dovrei stamparlo.
Cioè dovrei attribuire l'istruzione PrintOut al file pdf.
dovrei usare qualcosa tipo ActiveWindows,

ma non riesco....

[davide72]

tipo questo

ActiveWindow.SelectedSheets.PrintOut
ActivePrinter:= _nome stampante registrata (vedi elenco)
PrintToFile:=True _
Collate:=True _
PrToFileName:=C:\persone\" & nomefile

[matzap]

Ho provato cosi,

ActiveWorkbook.FollowHyperlink "F:\stampa automatico\" & nomefile
ActiveWindow.SelectedSheets.PrintOut PrintToFile:=True, Collate:=True, PrToFileName:="F:\stampa automatico\" & nomefile

ma invece di stampare "F:\stampa automatico\" & nomefile, mi stampa il foglio excel da dove lancio la macro...

[davide72]

credo manchi active print , purtroppo ho mal interpretato la tua richiesta , chiedo scusa
meglio attendere qualcun' altro

[matzap]

tranquillo, c'è sempre da imparare....
che vuoi dire con activeprint?

[davide72]

si sucsa volevo ActivePrinter:= _ cioè in pratica dovrsti mettere la stampante quella che trovi nella lista delle macro credo

[matzap]

si ma la stampante non è un problema, lui usa quella predefinita.
il problema è che stampa il foglio sbagliato.
ciao

[Anthony47]

Ma questo problema e' risolto o ancora pendente?

[Flash30005]

Ma questo problema e' risolto o ancora pendente?

Credo di no e provo ad inserire una soluzione

Codice: Seleziona tutto

        FileN = "NomeFile.pdf"   '<<<< inserisci il nome del tuo file completo di estensione
        PercFile = "F:\stampa automatico\"     '<<<<< inserisci il percorso completo di slash finale
        Call ShellExecute(0, "Print", PercFile & FileN, "", "", 0)

Fai sapere
ciao

[matzap]

ciao, scusate se non ho risposto prima...
per diversi motivi non mi è servita più la stampa.
ciao