Salvare foglio in formato PDF con nome da cella

Creare una macro - Scrivere uno script - Usare le API
Rispondi
amax
Messaggi: 100
Iscritto il: mercoledì 7 novembre 2012, 10:59

Salvare foglio in formato PDF con nome da cella

Messaggio 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
macOS 15.01 Sequoia: LibreOffice 24.8.2.1
nickGiard
Messaggi: 84
Iscritto il: lunedì 14 maggio 2012, 22:04

Re: Salvare foglio in formato PDF con nome da cella

Messaggio 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
Ultima modifica di charlie il giovedì 29 febbraio 2024, 8:48, modificato 1 volta in totale.
Motivazione: Formattato codice
Nicola con LibreOffice 7.1 (x64) su Windows 11
amax
Messaggi: 100
Iscritto il: mercoledì 7 novembre 2012, 10:59

Re: Salvare foglio in formato PDF con nome da cella

Messaggio da amax »

grazie, ci proverò e se ci riesco condivido la mia versione
macOS 15.01 Sequoia: LibreOffice 24.8.2.1
Rispondi