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.
Calc tulostusmakro
jrax
1
154
Vastaukset
- ...
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Ruotsalaisuuden Päivän virallinen liputuspäivä poistettava VÄLITTÖMÄSTI!
Suomen valtion ja suomalaisuuden kannalta ei ole minkäänlaisia perusteita liputtaa virallisesti ruotsalaisuuden päivää,1055731Mikaela Nylander: Jos pakkoruotsi poistetaan, niin ruotsin kielen asema romahtaa
(Nylander on vanha RKP:nen) Mutta niin heikossa vedossa muumiruotsi siis on Suomessa, että vain tekohengityksellä se pys652572Nainen aion pilata elämäsi täysin, opetus sulle, että pelasit väärän ihmisen sydämellä.
Empatiani sua kohtaan katosi siinä kohtaan, kun teit tietoisen valinnan leikkiä mun sydämellä. Luulet olevas joku älykäs2411585- 941380
- 1241097
6 vkoa kulunut ilman sua
…ihme että olen vielä hengissä. 😔 Kyynelillä pessyt lattioita. Rakastan ja odotan sua ikuisesti❤️Projekti jäi kesken jo8901- 65882
- 66857
- 75798
Salailu jatkuu, poliisi tutkii
Nykyään Pienimäki toimii Ylitornion kaupunginjohtajana. HS tavoitti hänet puhelimitse. Pienimäki korosti, ettei ole enää17741