ho adattato questa macro al mio database, funziona correttamente, crea il pdf e lo salva nella cartella dove risiede il database.
Vorrei che la macro mi salvasse il pdf in una cartella da me indicata.
Mi potete aiutare, grazie
Codice: Seleziona tutto
Sub Salva
On Error GoTo Giu:
NameReport$=Campo("Nome").Text &"_"&Campo("Cognome").Text & "_" & Format(CDateFromISO(Campo("Data").Date),"DD-MM-YY") &"_"
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 args1(2) as new com.sun.star.beans.PropertyValue
sPDFURL=Left(ThisComponent.Parent.Location,len(ThisComponent.Parent.Location)-len(ThisComponent.Parent.Title))& NameReport &".pdf"
args1(0).Name = "URL"
args1(0).Value = sPDFURL
args1(1).Name = "FilterName"
args1(1).Value = "writer_pdf_Export"
args1(2).Name = "FilterData"
args1(2).Value = Array()
dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())
MsgBox "Report Creato",64,"OK"
Exit Sub
Giu:
MsgBox "C'è un'errore!",48,"!"
End Sub
