Premetto che non sono un programmatore, ma mi diletto nel cercare soluzioni che possano semplificare il mio lavoro attraverso il "Fai da te".....
il mio problema è il seguente:
la base di partenza è un file .ods che mi hanno passato, in questo file già sono presenti delle macro che funzionano a dovere, ma per semplificare vorrei esportare, attraverso un pulsante su un foglio, un insieme di fogli in pdf in una determinata cartella e rinominare in automatico il file attraverso due celle sul foglio attivo ... la macro è la seguente:
Codice: Seleziona tutto
Sub EsportaPdf (pagine As String)
'document = ThisComponent.getCurrentController.ActiveSheet
document = ThisComponent.CurrentController.Frame' il nostro frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
'Dim sPDFURL$ 'la stringa con prossimo URL e ilnome del PDF-report
Dim FilterProps(0) as New "com.sun.star.beans.PropertyValue"
'export only 1st page
FilterProps(0).Name = "PageRange"
FilterProps(0).Value = pagine
Dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = document
args1(1).Name = "FilterName"
args1(1).Value = "writer_pdf_Export"
args1(2).Name = "FilterData"
args1(2).Value = FilterProps
dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())
End Sub
