Salvare file excel come pdf

Hai un problema con Excel?

Nuova discussione

Salvare file excel come pdf
di Rita (utente non iscritto) data: 10/10/2014 08:44:14
Ciao a tutti, volevo sapere se esiste un comando posto in una macro affinche' un file excel si possa salvare in formato pdf
io ho installato pdf creator e quindi quando lancio uina stampa selezionando pdf creator il file viene salvato in pdf ma non riesco ad adattarlo ad excel anche perche' viene salvato solo un foglio (io li vorrei tutti).
grazie

Macro differenti per lo stesso foglio di lavoro
di Elia (utente non iscritto) data: 10/10/2014 08:45:04
Buongiorno a tutti

Ho visto il vostro forum e mi è stato di molto aiuto pe ril progetto che sto realizzando, essendo un povero neofita.
Io ho creato un modello excel con delle macro che deve essere utlizzato da molti utenti: il modello genera, attraverso delle macro un nuovo file ad ogni modifica del modello con un nome profressivo che incrementa automaticamente.
Il mio problema è questo:
Il foglio di lavoro creato deve rimanere modificabile (nel caso gli utenti debbano interagire) ma la cella che contiene il progressivo (che poi funziona anche per numerare il file) non deve essere modificabile. Se però blocco le celle il progressivo non funziona più.
Inoltre avrei bisogno che il modello cancellasse il contenuto di qualche cella ad ogni apertura (per renderlo vergine ad ogni apertura). Però questa funzione non deve applicarsi ai files "figli" del modello.
Vi allego quanto ho nfatto

Grazie

Sub workbook_open()
Dim v As Variant, y As String

y = MsgBox("Vuoi generare una nuova Rda?                                                           Se devi modificare una Rda esistente premere NO ", vbInformation + vbYesNo, "Numerazione Progressiva")

If y = vbYes Then

    v = Split([a6], "-")
    [a6] = v(0) + "-" + Format(v(1) + 1, "000")
    Dim sName As String
    Dim sPath As String
    sName = [a6]
    sPath = "C:Users2938074Desktopa1" 
    ActiveWorkbook.Save 'questo è stato inserito per salvare il progressivo sul modello'
    sPath = "C:Users2938074Desktopa1" 
    ActiveWorkbook.SaveAs Filename:=sPath & sName & ".xlsm"

    
End If

End Sub
Private Sub SalvRda_Click()
y = MsgBox("Vuoi Salvare la Rda? ", vbYesNo + vbInformation + vbDefaultButton2)

If y = vbYes Then


Dim sName As String
Dim sPath As String
sName = [a6]
sPath = "C:Users2938074Desktopa1" '<=== cambia tua dir
ActiveWorkbook.Save
    
End If
End Sub

Private Sub StampRda_Click()
ActiveWindow.SelectedSheets.PrintOut
End Sub

di Zer0Kelvin data: 10/10/2014 09:23:54
Ciao Rita.
Senza macro, dovrebbe essere sufficiente in File->Stampa->Opzioni, selezionare "Stampa intera cartella di lavoro".
Se vuoi la macro, usa il registratore.

@Elia, devi aprire un nuovo post.
Nell'indice del forum, clicca su [Nuova discussione]
di sharkboy84 data: 10/10/2014 09:33:36
scusate :(

Vuoi Approfondire?