[Risolto] Esportazione in Pdf con macro

[paolog]

Ciao
Vorrei fare una esportazione pdf con macro da calc, però con un area variabile che imposta l'utente selezionando i limiti (cella in alto a sx e cella in basso a dx) puntandoli con il mouse
Spero di essermi spiegato
Grazie Mille in anticipo

[Gumo]

Da macro io non ci sono riuscito... Mi esporta sempre tutta la pagina.

In verità ho trovato una segnalazione che impostava i parametri di selezione, ma la cosa mi pareva talmente astrusa che ho preferito mantenere l'export completo della pagina.

g

[c.spaziani]

Ciao,
seleziona un range ed esegui questa macro:

Codice: Seleziona tutto

Sub ExportSelectionToPDF
Dim a(1) As New com.sun.star.beans.PropertyValue
Dim b(0) As New com.sun.star.beans.PropertyValue

	oDoc = ThisComponent
	oSheet = oDoc.getCurrentController.ActiveSheet
	aSel = oDoc.getCurrentSelection.RangeAddress
	b(0).Name = "Selection"
	b(0).Value = oSheet.getCellRangeByPosition(aSel.StartColumn, aSel.StartRow, aSel.EndColumn, aSel.EndRow)
	a(0).Name = "FilterName"
	a(0).Value = "calc_pdf_Export"
	a(1).Name = "FilterData"
	a(1).Value = b()
	BasicLibraries.LoadLibrary("Tools")
	oDoc.storeToURL(GetPathSettings("Work") + "/Selection.pdf", a())

End Sub

Nella tua cartella di lavoro dovresti trovare un file chiamato Selection.pdf contenente solo i dati selezionati.

[Gumo]

Ottimo e molto chiaro.
grazie della condivisione
g