Pdf

Hai un problema con Excel?

Nuova discussione

Pdf
di Jellyfish data: 29/10/2012 12:37:39
Ecco il mio nuovo quesito.

Sotto ho il codice... mi piacerebbe tanto inserire al posto del mio path lo stesso path del file in cui è inserito il codice in modo da poterlo spostare in qualsiasi pc senza doverlo settare ogni volta...

In pratica mi basterebbe che il codice mi copiasse il foglio selezionato in pdf nella stessa cartella di dove è stato messo il file che contiene il codice stesso ossia che contiene l'intero progetto...

Spero di esseremi spiegata.

Ovviamente non ho la più pallida idea di come si faccia, o anche il dubbio che non si possa fare...

Call CreaPDF

    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$6"
        .PrintTitleColumns = "$A:$F"
        .Zoom = 30
        .Orientation = xlLandscape
    End With
    ChDir "C:UsersJellyfishDocumentsProgetto"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersJellyfishDocumentsProgettoNumeProgetto.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

End Sub

di HarryBosch data: 29/10/2012 13:32:05
Jelly! Hai già risposto nella tua riflessione:
"inserire nel mio path.." = path
"il file che contiene il codice stesso.." = activeworkbook

    percorso = ActiveWorkbook.Path
    nomefile = "NomeProgetto.pdf"

    ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=percorso & "" & nomefile

di Jellyfish data: 29/10/2012 15:05:23
Harry,

Percosro as Variant
Nomefile as String

vanno benn?
di Vecchio Frac data: 29/10/2012 15:08:24
Anche "percorso" è una stringa.
di Jellyfish data: 29/10/2012 15:31:33
Grazie Vecchio Frac!

Corrego e provo il codice così piazzo un altro bel "risolto"!
di Jellyfish data: 29/10/2012 15:37:55
E se volessi che il pdf avesse lo stesso nome del file

Nomefile=ActiveWorkbook.Name

ma si porta dietro l'estensione Nomefile.xlsb.pdf

Come faccio a non fargli mettere xlsb???
di Jellyfish data: 29/10/2012 15:41:01
Oppure se volessi dirgli Nomefile - data - ora di salvataggio... così sarebbe perfetto altrimenti me lo sovrascrive ogni volta :(
di Vecchio Frac data: 29/10/2012 15:54:48
Ok, ho scritto una riga al volo e l'ho pure provata, dovrebbe funzionare.
In pratica compongo "n" con il nome della cartella senza l'estensione (cerco dal fondo il primo punto che trovo ed elimino quanto lo segue), poi aggiungo data e ora in formato annomesegiorno_oraminutisecondi).
Puoi cambiarlo a piacimento :)
n = left(thisworkbook.Name, instrrev(thisworkbook.Name, ".")-1) & "_" & format(now, "yyyymmdd_hhmmss")
di Jellyfish data: 29/10/2012 16:05:33
Fantastico e funziona!!! ora è perfetto!

Grazie ancora
di Jellyfish data: 29/10/2012 16:05:58
Mi ero dimenticata la spunta!

Vuoi Approfondire?