Ik heb een libre calc bestand met veel tabbladen. Elk tabblad is een factuur, een factuur wordt op bepaald moment afgedrukt en opgeslagen als .pdf
Naam van bestand moet worden:
klantnaam (Cel J1) en ordernummer (Cel J2),
bijvoorbeeld: 9001_52185.pdf
Doordat het tabblad ook het klantnummer heeft, is het gelukt.
Maar hoe verwijst ik naar de cellen op het actieve (geopende) tabblad?
Ben al verschillende avonden bezig, maar lukt niet.

ThisComponent.Sheets (3) verwijst nu naar het verkeerde blad, niet de actieve.
Macro moet geschikt zijn voor alle bladen.
Sub ExportToPDF()
dim document as object
dim dispatcher as object
dim fileName
'Naam van active tabblad ophalen, daarna nummer van Cel J2 ophalen, maar hoe ?
fileName = _ & ThisComponent.getCurrentController.getActiveSheet.Name & "_" & ThisComponent.Sheets (3). getCellRangebyName ("J2").String & ".pdf"
document = ThisComponent.CurrentController. Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Facturen/" & fileName ' change the path below as per your needs
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
End Sub