Dokumentissa on 18 taulukkoa(välilehteä). Tarvis tulostaa ne jokainen omaan pdf-tiedostoon. pdf-tiedoston nimi pysyy aina samana.
Yritin nauhoittaa makron, mutta makro tulosti aina koko satasivuisen työkirjan.
Voisi olla joko yksi makro, joka tekisi kaikki välilehdet kerralla tai joka välilehdellä oma nappi.
Yritin nauhoittaa makron, mutta makro tulosti aina koko satasivuisen työkirjan.
Voisi olla joko yksi makro, joka tekisi kaikki välilehdet kerralla tai joka välilehdellä oma nappi.
Vastaukset 1
Vanhimmat
Sub ExportSheetToPDF
oDoc = ThisComponent
oFrame = oDoc.getCurrentController().getFrame()
' range to store
oObj = oDoc.getSheets().getByIndex(0)
dispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
Dim aArg(0) As New com.sun.star.beans.PropertyValue
aArg(0).Name = "Selection"
aArg(0).Value = oObj
Dim aArgs(2) As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "URL"
aArgs(0).Value = "file:///C:/test/01994.pdf"
aArgs(1).Name = "FilterName"
aArgs(1).Value = "calc_pdf_Export"
aArgs(2).Name = "FilterData"
aArgs(2).Value = aArg
dispatcher.executeDispatch(oFrame, ".uno:ExportToPDF", "", 0, aArgs)
End Sub