Stampare un file xls in pdf

di Anonimizzato10161 il
6 risposte
/
Anonimizzato10161
Utente anonimizzato
Salve a tutti, sono alle prime armi con questo programma, ma ho un problema che mi spacca il cervello.
Io ho un foglio di Excel dal quale esce la visualizzazione di un fax che poi invierò e che ha un numero diverso ogni volta. Ora il mio problema è questo, io vorrei, anziché buttare via un sacco di carta, creare un archivio di pdf (quindi salvare il file ogni volta con Fax_001.pdf, poi 002, 003 ecc. e il riferimento del numero di fax è all'interno di una cella di questo foglio e ogni volta cambia) ed inoltre inviare una email col file o un fax.
In pratica devo far variare il nome del file pdf ogniqualvolta clicco un pulsante o attivo la macro basandomi sul numero che mi appare nella cella A1 per esempio solo che non riesco a inserirlo nel punto in cui ci sono gli underscore

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
___________________ , Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Come devo fare???
E' un casino, lo so, ma se potete darmi una mano la accetto molto volentieri!!!
Grazie mille. Andrea.

6 Risposte

  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8953
    Nell'invitarti ad usare i codici TAG appositamente fruibili per la pubblicazione del codice, provo
    a darti la mia soluzione: 
    
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                        Filename:= "Fax_" & Range("A1").Value & ".pdf", _
                        Quality:= xlQualityStandard, _
                        IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False, _
                        OpenAfterPublish:=False
  • /
    Anonimizzato10161
    Utente anonimizzato
    Grazie mille! Ora provo immediatamente!!!
  • /
    Anonimizzato10161
    Utente anonimizzato
    Wonderful!!! Perfetto!!!
  • /
    Anonimizzato10161
    Utente anonimizzato
    E se io dovessi aggiungere anche un altro riferimento a un'altra cella, dopo essere arrivato al

    & Range("A1").Value

    aggiungo che ne so:

    & Range("B1").Value & ".pdf"

    giusto??? grazie
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8953
    Direi che per fare la prova tio basterebbe fare un
    
Debug.Print StringaCompleta
    Ti renderesti conto andando nella finestra immediata [CTL+G] del risultato della concatenazione.

    Riassumendo in tutti i casi direi che va bene.
  • /
    Anonimizzato10161
    Utente anonimizzato
    Solo che mi dice, quando tento di far partire la macro:

    Errore di run-time 1004

    Documento non salvato (e l'ho fatto). e' possibile che il documento sia aperto o che si sia verificato un errore durante il salvataggio.
Devi accedere o registrarti per scrivere nel forum
6 risposte