Pagina 1 di 1
Salvare foglio in formato PDF con nome da cella
Inviato: sabato 17 febbraio 2024, 19:18
da amax
Buonasera, ho provato molte macro presenti sul forum per salvare un solo foglio (dei tanti presenti nel file) in formato pdf, ma non ci sono mai riuscito. Ho anche registrato una macro, mentre registravo la micro salvando il file salvato pdf era il solo foglio selezionato, ma quando lancio la macro mi salva tutti i fogli.
Mi piacerebbe, che il file salvato avesse com nome il contenuto una specifica cella.
Grazie
Re: Salvare foglio in formato PDF con nome da cella
Inviato: mercoledì 28 febbraio 2024, 18:22
da nickGiard
Ciao amax
stampare un range, ossia il foglio, effettivamente è un pò articolato. Ti passo come spunto una parte di macro che uso, lasciando a te approfondire :
Codice: Seleziona tutto
' Filter Pdf
Dim aFilterData(0) As new com.sun.star.beans.PropertyValue
aFilterData(0).Name = "Selection"
aFilterData(0).Value = rgPrint
Dim aFilterPdf(1) As new com.sun.star.beans.PropertyValue
aFilterPdf(0).Name = "FilterName"
aFilterPdf(0).Value = "calc_pdf_Export"
aFilterPdf(1).Name = "FilterData"
aFilterPdf(1).Value = aFilterData()
'Store
Dim sPathUrlPdf
If InStr(sNamePathUrlPdf, "file:/") = 0 Then
sPathUrlPdf = Wb.DirUrl(oWb) & "/" & sNamePathUrlPdf
Else
sPathUrlPdf = sNamePathUrlPdf
End If
'
oWb.storeToURL(sPathUrlPdf, aFilterPdf())
Buona ricerca. Nicola
Re: Salvare foglio in formato PDF con nome da cella
Inviato: mercoledì 13 marzo 2024, 18:52
da amax
grazie, ci proverò e se ci riesco condivido la mia versione