Consenso all'uso dei cookies

SITO1 -- SITO2 -- Forum1 -- CercaGlobale -- Informativa su Cookie e Privacy


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
Macro che esporta selezione in PDF dando il nome del foglio
#1
Continuando il lavoro in questa discussione 
ho modificato la macro di Patel, in modo che esporti la selezione in PDF dandogli come nome quello del foglio di Calc.

Ad esempio nel documento "bilancio familiare" ci sono dodici fogli , uno per ogni mese,  chiamati Gennaio, Febbraio...ecc
e il pdf esportato si chiamerà Gennaio.pdf, Febbraio.pdf  e così via.

In questo modo non c'è bisogno di prendere il nome del PDF da una cella come nelle macro precedenti:


Codice:
sub Selezione_in_PDF_con_nome_del_foglio
Dim mFilterData(0) As New com.sun.star.beans.PropertyValue
oDoc = ThisComponent
Sheet = oDoc.getCurrentController.ActiveSheet
aSel = oDoc.getCurrentSelection.RangeAddress
fname ="file:///home/utente/percorso/cartella/ " & ThisComponent.getCurrentController.getActiveSheet.Name & _
 ".PDF" ' <<< nome del file
mFilterData(0).Name = "Selection"
mFilterData(0).Value = Sheet.getCellRangeByPosition(aSel.StartColumn, aSel.StartRow, aSel.EndColumn, aSel.EndRow)

'parametri di esportazione
Dim mStoreOpts(2) As New com.sun.star.beans.PropertyValue
mStoreOpts(0).Name = "Overwrite"
mStoreOpts(0).Value = True
mStoreOpts(1).Name = "FilterName"
mStoreOpts(1).Value = "calc_pdf_Export"
mStoreOpts(2).Name = "FilterData"
mStoreOpts(2).Value = mFilterData()
ThisComponent.storeToURL(fname, mStoreOpts())
end sub
La parte file:///home/utente/percorso/cartella/ va personalizzata con il proprio percorso cartella (siccome uso Ubuntu, non so se se su Windows il percorso si indichi alla stessa maniera)

La differenza con la macro di Patel (nel mio primo post dell'altra discussione) è che quest'ultima prende il nome da quello del foglio, senza che ci sia bisogno di scriverlo prima in una cella.

Il comando per il nome del foglio l'ho trovato qui:
https://www.debugpoint.com/2015/08/expo ... ing-macro/
Però la macro nel link ha il difetto che esporta le celle in un range predefinito (es da A1 a F20)  e non la selezione (che può variare)   e quindi ho mescolato le cose...
Cita messaggio
Grazie da: Blackstar , eu66


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)