| | Post: 5 | Registrato il: 14/05/2016
| Utente Junior | 2016 | | OFFLINE | |
|
  19/05/2016 12:50 | |
Ciao a tutti, avrei un problema con un foglio contenente una fattura: avrei bisogno di un tasto che mi esporti la mia fattura ( che è un insieme di celle di dimensione prefissata, 59R x 5C ) come PDF nella stessa cartella in cui si trova il mio file excel contenente la fattura. E' possibile automatizzare una procedura di questo genere? Io sono abituato a programmare in VBA per Access, ma non sono ancora pratico di VBA per excel. Spero di essere stato esauriente nell'esporre il mio problema, sono nuovo nel forum, sono a disposizione per ulteriori chiarimenti a riguardo. Grazie in anticipo |
|
| | Post: 1.862 | Registrato il: 24/09/2008
| Città: LATINA | Età: 69 | Utente Veteran | 2007-2010 | | OFFLINE | |
|
| 19/05/2016 13:32 | |
Ciao novic, ti propongo una macro da ricopiare su modulo e da variare secondo le tue esigenze.
Sub stampa_pdf()
Dim sPath As String
Dim sNome As String
Application.DisplayAlerts = False
On Error Resume Next
With ThisWorkbook
Sheets("Foglio1").Select '<=== o nome tuo foglio
With .Worksheets("Foglio1")'<=== o nome tuo foglio
sNome = Format(.Range("E6").Value, "dd-mm-yyyy") & " - " & .Range("E3").Value '<=== in E6 la data fatt. in E3 il N. fatt.
ChDir "C:\User.......Desktop\File Excel" '<== qui il tuo percorso ed il nome della cartella contenente il file io ho chiamato File Excel
'Qui sotto il range A1:E59 come da te detto e riporta nuovamente il percorso completo con il nome della cartella contenente il file come detto sopra chiamata da me File Excel
Range("A1:E59").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users......Desktop\File Excel\" & sNome & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End With
Application.DisplayAlerts = True
End Sub
Fai sapere
Un saluto
Berna11
-----------
Excel-2007-2010
|
| | Post: 5 | Registrato il: 14/05/2016
| Utente Junior | 2016 | | OFFLINE | |
|
| 19/05/2016 16:08 | |
Ciao Berna11, grazie mille della tempestività delle tua risposta. Ho provato la funzione e va alla grande, grazie mille!! Volevo ancora chiederti, non c'è un modo per rendere dinamico il percorso in cui salvo il file? Io ho tanti file excel dove implementare questa funzione, c'è un modo per evitare di inputare a mano il percorso della cartella del mio file excel? Scusa la richiesta molto puntigliosa, ma il mio capo di ufficio è molto esigente e non sono ancora esperto di Excel. Grazie ancora per la disponibilità,
Novic |
| | Post: 1.863 | Registrato il: 24/09/2008
| Città: LATINA | Età: 69 | Utente Veteran | 2007-2010 | | OFFLINE | |
|
| 19/05/2016 17:57 | |
Ciao novic, dunque ti allego una cartella "Fatture" con dentro il file excel "salva pdf" entrando nel file trovi una fac simile di fattura con un pulsante "Salva pdf fattura" cliccandoci sopra ti salva la fattura nella cartella del file con il numero e la data fattura rilevabili nelle celle E3-E5.
Non devi inserire nessun percorso e nemmeno nome cartella.
Credo sia quello che volevi.
Un saluto
Berna11
-----------
Excel-2007-2010
|
| | Post: 0 | Registrato il: 20/05/2016
| Età: 69 | Utente Junior | 2007 | | OFFLINE | |
|
| 20/05/2016 17:23 | |
commento libero, a presto |
| | Post: 9 | Registrato il: 14/05/2016
| Utente Junior | 2016 | | OFFLINE | |
|
| 30/07/2016 11:10 | |
non mi stampa più tutte le righe del mio foglio di lavoro Ciao! Scusa se ti disturbo ancora, ma si è verificato un problema inatteso: la funzione ora non mi esporta in pdf più tutto il contenuto del mio foglio, e non capisco come mai. Ho semplicemente incollato la funzione su un'altro foglio per far stampare la mia fattura in pdf, e mi salva il file nella cartella giusta, ma non prende tutto il contenuto. Ho provato a cercare su internet casi analoghi ma non ho trovato nulla. Sapresti aiutarmi o darmi delle indicazioni? Ti ringrazio in anticipo |
| | Post: 3.137 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 30/07/2016 11:14 | |
Casomai sarà da modificare il >>> Range("A1:E59")Excel 2013 |
| | Post: 1.886 | Registrato il: 24/09/2008
| Città: LATINA | Età: 69 | Utente Veteran | 2007-2010 | | OFFLINE | |
|
| 30/07/2016 11:40 | |
Ciao novic, non so cosa è successo di sicuro qualche modifica non corretta. Hai visto se non hai superato i limiti del Range("A1:E59") come suggerito da Raffaele (che saluto)?
Oppure riprendi il file originale che ti ho inviato il 19/05/2016 17.57 e riprova da li.
Altrimenti rimanda il file (senza dati sensibili ) per vederlo.
Un saluto
Berna11
-----------
Excel-2007-2010
|
| | Post: 3.297 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 30/07/2016 12:58 | |
Seleziona il foglio, seleziona il range da stampare e lancia questa macro
[TESTO ::text]Sub stampa_pdf()
sNome = Format(Range("E6").Value, "dd-mm-yyyy") & " - " & Range("E3").Value '<=== in E6 la data fatt. in E3 il N. fatt.
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users......Desktop\File Excel\" & sNome & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
|
|
|
|