Stampare un file xls in pdf

di il
6 risposte

Stampare un file xls in pdf

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

  • Re: Stampare un file xls in pdf

    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
  • Re: Stampare un file xls in pdf

    Grazie mille! Ora provo immediatamente!!!
  • Re: Stampare un file xls in pdf

    Wonderful!!! Perfetto!!!
  • Re: Stampare un file xls in pdf

    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
  • Re: Stampare un file xls in pdf

    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.
  • Re: Stampare un file xls in pdf

    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