Condividi:        

[Excel] Macro personalizzata per salvare in 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

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi ricky53 » 01/03/14 21:08

Ciao,
invia la macro che utilizzi per richiamare il codice che ti avevo proposto.

Di solito si opera in questo modo
Codice: Seleziona tutto
Sub Macro_Che_Lavora()
' ...
' Varie istruzioni
   Call ApriPDF
'...
' Altre istruzioni
End Sub


ATTENZIONE: la macro "ApriPDF" deve essere in un Modulo e non in ThisWorkbook o in un Foglio!!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Sponsor
 

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi elios66 » 01/03/14 21:19

Il codice è questo, si trova nel modulo di Personal.xlsb

Codice: Seleziona tutto
Sub SalvaPDF()
'
'
With ActiveWorkbook
    If .Path = "" Then Exit Sub
      pdfFile = .Path & "\" & Left(.Name, InStr(.Name, ".") - 1) & "_" & .ActiveSheet.Name & ".pdf"
End With
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
End Sub
Win 8 - Office 2010

http://www.filedropper.com/
elios66
Utente Junior
 
Post: 48
Iscritto il: 04/02/14 18:32

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi ricky53 » 01/03/14 21:34

Ciao,
ma questa che macro è?
L'altra macro dove si trova?

Il file "Personal.XLSB" è stato citato adesso per la prima volta oppure mi sono perso qualcosa?

Non ho chiaro cosa STAI FACENDO !
Puoi chiarire ma passo passo ...
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 02/03/14 01:13

Comunque se la macro da eseguire e' in Personal.xlsb allora la sintassi sara'
Codice: Seleziona tutto
Application.Run "personal.xlsb!SalvaPDF"


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi elios66 » 02/03/14 20:46

Grazie Anthony, funziona.

Scusami Ricky, se non sono stato sufficientemente chiaro. Avevo dimenticato di dire dove si trovava la macro.

Si in pratica da un modulo di un mio progetto volevo richiamare una macro da personal.xlsb
:)
Win 8 - Office 2010

http://www.filedropper.com/
elios66
Utente Junior
 
Post: 48
Iscritto il: 04/02/14 18:32

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi ricky53 » 03/03/14 02:20

Ciao,
però l'ottimo Anthony ti ha trovato la soluzione.

Alla prossima.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 24/03/14 17:49

Ciao ragazzi,

sono nuovo del forum e ho trovato molto interessante questo topic, avrei bisogno di una modifica della macro che avete creato.

Premetto che avevo creato una macro per la stampa di un foglio di lavoro in pdf, ma su questo file dove devo applicarla non funziona ed allora ho deciso di usare la vostra.

Avrei bisogno di stampare il file dandogli il nome di alcune celle presenti nel file. La mia macro era questa:

Codice: Seleziona tutto
Public Sub m()

    Dim sPath As String
    Dim sNome As String
   
    Application.DisplayAlerts = False
    On Error Resume Next
   
    With ThisWorkbook
   
        sPath = .Path
       
        With .Worksheets("fattura")
       
            sNome = .Range("b8").Value & _
                " " & .Range("c8").Value & _
                " " & .Range("b9").Value & _
                " " & Format(.Range("c9").Value, "dd-mm-yyyy") & _
                " " & .Range("g8").Value
   
            .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=sPath & "\" & sNome & ".pdf", _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=True

        End With
       
    End With

    Application.DisplayAlerts = True
   
End Sub


ma nel file su cui la dovrei usare non funziona e non capisco il perchè. E' possibile modificare la vostra macro per dargli il nome di alcune celle??

Grazie
calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 25/03/14 02:35

Ciao calabrone80, benvenuto nel forum.
Per debuggare la tua macro elimina le istruzioni
Application.DisplayAlerts = False
On Error Resume Next

Poi prova a rieseguire la macro: probabilmente ti dara' un errore; dicci che errore e su quale riga.

Se da errore sull' istruzione ".ExportAsFixedFormat", allora mentre sei in debug e quell' istruzione e' evidenziata, premi Contr-g e nella finestra che si apre scrivi
Codice: Seleziona tutto
?sPath & "\" & sNome & ".pdf"
Copia il testo di quello che ti "risponde" e incollalo nel tuo prossimo messaggio.

Vorrei inoltre essere certo che la versione Excel che usi sia 2007 o superiore.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 26/03/14 15:18

Ciao Antony grazie per la risposta,

ho effettuato le operazioni che mi hai suggerito e dopo aver cancellato le due righe mi da di nuovo debug.

La riga che da l'errore è:

With .Worksheets("fattura") ,

l'errore è " l'indice non è incluso nell'intervallo".

Cosa devo fare??

Grazie

P.s. uso excel 2010
calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 26/03/14 15:47

Le righe che hai cancellato "nascondevano" il problema, cancellarle e' non era certamente la soluzione.

Ma il file in cui hai inserito la macro contiene un foglio che si chiama esattamente "fattura"?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 26/03/14 17:28

Si il foglio di lavoro si chiama fattura.

Non ho capito una cosa, non dovevo cancellare le righe??

Questo è il mio codice adesso:

Codice: Seleziona tutto
Public Sub printpdf()

    Dim sPath As String
    Dim sNome As String
   
     
    With ThisWorkbook
   
        sPath = .Path
       
        With .Worksheets("fattura")
       
            sNome = .Range("b14").Value & _
                " " & .Range("c14").Value & _
                " " & .Range("b15").Value & _
                " " & Format(.Range("c15").Value, "dd-mm-yyyy") & _
                " " & .Range("g14").Value
   
            .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=sPath & "\" & sNome & ".pdf", _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=True

        End With
       
    End With

    Application.DisplayAlerts = True
   
End Sub
calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 26/03/14 23:56

Non ho capito una cosa, non dovevo cancellare le righe??
Si dovevi, cancellare come hai fatto.

Quanto all' errore "l'indice non è incluso nell'intervallo" sull' istruzione With .Worksheets("fattura") nel contesto del rimanente codice pubblicato il 24-3, esso puo' solo dipendere dal fatto che il file che contiene la macro non contiene anche un foglio nominato esattamente "fattura".
Ribadisco che parliamo del file in cui e' inserita la macro (non il file su cui la macro "lavora") e che il nome foglio deve essere esattamente "fattura" (eventualmente prova a riscrivere il nome del foglio, facendo doppioclick sul tab del nome foglio, e rieseguire la macro).
E se non ne vieni fuori faremo una indagine con una macro di prova.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 27/03/14 16:03

Ciao,

ho cancellato la vecchia macro registrata e ne ho creata una nuova per vedere se caso mai era quello il problema visto che l'avevo usata per un altro file. Ora l'errore con la nuova macro è un altro:

errore di runtime 2147024773(8007007b)

documento non salvato.

Le righe che danno l'errore sono:

.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPath & "\" & sNome & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Scusa ma non riesco a capire cosa c'è che non va!! :( :( :cry: :cry:

Se è più facile possiamo modificare la vostra macro in modo che vada a leggere determinate celle per impostare il nome della stampa.

Grazie e scusa per il continuo fastidio.
calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 27/03/14 16:07

Direi che e' meglio se pubblichi il tuo file con le tue macro, cosi' si scopre prima l' arcano.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 27/03/14 16:40

Ho vergogna a dirlo, ma non so come fare a pubblicare il mio file qui. :oops: :oops: :oops: :oops:
calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi ricky53 » 27/03/14 16:44

Ciao,
per sapere come fare LEGGI QUI
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 27/03/14 17:38

calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 28/03/14 00:17

Mi spiace, ma il link non sembra buono...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi ricky53 » 28/03/14 14:54

Ciao,
il link non fa scaricare il file.

Prova con QUESTO NUOVO LINK
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 28/03/14 18:12

calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Macro personalizzata per salvare in PDF":


Chi c’è in linea

Visitano il forum: antonino58 e 43 ospiti