Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Macro per visualizzare e stampare file pdf

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[Excel] Macro per visualizzare e stampare file pdf

Postdi Mark82 » 25/10/07 09:42

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
Mark82
Utente Junior
 
Post: 13
Iscritto il: 25/10/07 09:28

Sponsor
 

Postdi Anthony47 » 25/10/07 14:51

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Postdi Mark82 » 25/10/07 16:06

Anthony47 ha scritto:Ciao e benvenuto nel forum.


Ciao grazie!

Anthony47 ha scritto: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
Mark82
Utente Junior
 
Post: 13
Iscritto il: 25/10/07 09:28


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Macro per visualizzare e stampare file pdf":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti