[Excel] Macro per visualizzare e stampare file pdf

[Mark82]

Ciao a tutti,
ho cercato sul forum ma data la mia scarsa conoscenza di VB non ho trovato risposta al mio problema.

Ho un foglio di excel con 5 colonne.
Nella colonna 1 (campo testo) c'è un codice alfanumerico.
Ad ogni codice è associato un file .pdf con lo stesso identico nome.
(Se il codice è 753A6, il file si chiamerà 753A6.pdf).

I file pdf sono tutti nella stessa cartella sull'hd, ma in posizione diversa rispetto al file di excel, quindi dovrei impostare il percorso.

Quello che vorrei ottenere è poter stampare il pdf relativo alla riga selezionata.
Se questo fosse troppo complicato andrebbe già bene poter aprire con Acrobat il singolo pdf e poi da lì lanciare la stampa manualmente.

Qualche consiglio?

Tutto quello che ho trovato che funzioni è:

Codice: Seleziona tutto

Sub Macro1()

Dim Esegui
Esegui = Shell("C:\Programmi\Adobe\Reader 8.0\Reader\AcroRd32.exe" & " " & "C:\1139-03.PDF")

End Sub


che funziona effettivamente su un singolo file...
ma non saprei come automatizzare il tutto.

Grazie
Ciao Mark

[Anthony47]

Ciao e benvenuto nel forum.

Prova questa:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Esegui
Direct = "C:\Documents and Settings\Utente\Documenti\"      '<<<< Path della cartella
'
FileN = Cells(Activecell.Row, 1).Value
If FileN = "" Then Goto Esci
FullN = Direct & FileN
Esegui = Shell("C:\Programmi\Adobe\Acrobat 7.0\Reader\AcroRd32.exe" & " " & Direct & FileN & ".pdf", vbnormalfocus)
Esci:
Cancel = True
End Sub

Va messa nel modulo di codice del Foglio su cui lavori:
-tasto dx sul tab del nome del foglio per aprire l’ editor del vba
-copia il codice e incollalo nel frame vuoto di dx; se ci sono gia’ altre macro, controlla che non ce ne sia nessuna del tipo “Worksheet_BeforeDoubleClick”.
-modifica l’ istruzione identificata con <<<< e che definisce il percorso

Poi torna su excel, doppioclick su una riga che contiene un nome file in colonna A, la macro aprira’ il file; poi manualmente stampi e chiudi il file.

Fai sapere, ciao.

[Mark82]

Ciao e benvenuto nel forum.

Ciao grazie!

Prova questa:

[...]

Poi torna su excel, doppioclick su una riga che contiene un nome file in colonna A, la macro aprira’ il file; poi manualmente stampi e chiudi il file.

Fai sapere, ciao.

Funziona tutto perfettamente grazie davvero!
Ciao Mark